Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c