Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.05;
Скачать: CL | DM;

Вниз

Что делать с локальными типизироваными константами в Делфи 7   Найти похожие ветки 

 
nester   (2004-08-19 00:19) [0]

Есть компонента TKOLWebBrowser
В нем есть процедурка

procedure TWebBrowser_V1.InitControlData;
const
 CEventDispIDs: array [0..16] of DWORD = (
   $00000064, $00000065, $00000066, $0000006C, $00000068, $00000069,
   $0000006A, $0000006B, $00000071, $000000C8, $000000C9, $000000CC,
   $00000067, $0000006D, $0000006E, $0000006F, $00000070);
 CControlData: TControlData2 = (
   ClassID: "{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}";
   EventIID: "{EAB22AC2-30C1-11CF-A7EB-0000C05BAE0B}";
   EventCount: 17;
   EventDispIDs: @CEventDispIDs;
   LicenseKey: nil (*HR:$80040154*);
   Flags: $00000000;
   Version: 401);
begin
 ControlData := @CControlData;
 TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnBeforeNavigate) - Cardinal(@Self);
end;

По идеологии Делфи 7 типизированые константы отменили а ввели предопределенные переменные. т.е. так объявленая константа не может быть изменена, нужно в том что я привел менять const на var. НО это нельзя сделать в процедуре!!!! кто как решил данную багофичу? кто смог поставит KOLWebBrowser под 7мой делфи?
Я както поставил(что-то пофиксил), все работало, переставил винду и не помню как я тогда тряс бубном чтобы получилось:(((


 
nester   (2004-08-19 00:46) [1]

Хм уточняю КОЛа 1,92


 
SPeller ©   (2004-08-19 06:37) [2]

А причем здесь KOL ???


 
TUser ©   (2004-08-19 06:45) [3]


> По идеологии Делфи 7 типизированые константы отменили а
> ввели предопределенные переменные.

Первый раз слышу. Посоянно использую типизированные константы, в т.ч. массивы, в т.ч. в поцедурах. Тут D7 ничем от ТР6/7, вроде бы, не отличается.


 
PVOzerski ©   (2004-08-19 11:12) [4]

А {$J+} в D7 не работает?


 
TUser ©   (2004-08-19 11:19) [5]

Работает. По умолчанию - минус (если не ошибаюсь).



Страницы: 1 вся ветка

Текущий архив: 2004.09.05;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.039 c
3-1092146946
Koala
2004-08-10 18:09
2004.09.05
Как записать в поле даты - Null


10-1034843956
rex
2002-10-17 12:39
2004.09.05
Как отработать удаленную процедуру в тонком клиенте ?


14-1092401872
Prohodil Mimo
2004-08-13 16:57
2004.09.05
Где найти справочник имён?


1-1093234634
Fynjy1984
2004-08-23 08:17
2004.09.05
Проблема с разделителем


4-1090300887
[BAD]Angel
2004-07-20 09:21
2004.09.05
Как получить PID процессов?