![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Что делать с локальными типизироваными константами в Делфи 7
nester © (2004-08-19 00:19:00)Есть компонента 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мой делфи?
Я както поставил(что-то пофиксил), все работало, переставил винду и не помню как я тогда тряс бубном чтобы получилось:(((
TUser (2004-08-19 11:19:00) [1]Работает. По умолчанию - минус (если не ошибаюсь).
PVOzerski (2004-08-19 11:12:00) [2]А {$J+} в D7 не работает?
TUser (2004-08-19 06:45:00) [3]
> По идеологии Делфи 7 типизированые константы отменили а
> ввели предопределенные переменные.
Первый раз слышу. Посоянно использую типизированные константы, в т.ч. массивы, в т.ч. в поцедурах. Тут D7 ничем от ТР6/7, вроде бы, не отличается.
SPeller (2004-08-19 06:37:00) [4]А причем здесь KOL ???
nester (2004-08-19 00:46:00) [5]Хм уточняю КОЛа 1,92