Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как скомпилить такой код? [D6]

xxxxx © (2004-11-28 21:31:00)
это кусок кода из DelphiX, если ставлю как компонент, собирается,
пробую подцепить из своего модуля, ругается что нельзя присвоить
"нельзя присвоить левой стороне" и оно правильно, ведь это константа, но такие проекты собираются и все нормально, только я что-то недогоню как?
строка: ExitProcList := P^.Next;
Error: SysUtils.pas(2238): Left side cannot be assigned to

const
ExitProcList: PExitProcInfo = nil;

procedure DoExitProc;
var
P: PExitProcInfo;
Proc: TProcedure;
begin
P := ExitProcList;
ExitProcList := P^.Next;
ExitProc := P^.SaveExit;
Proc := P^.Proc;
Dispose(P);
Proc;
end;

GuAV (2004-11-28 21:38:00) [1]
а лучше

var
ExitProcList: PExitProcInfo = nil;

или

var
ExitProcList: PExitProcInfo; // все глобальные переменные по умолчанию инициализируются нулями.

xxxxx (2004-11-28 21:38:00) [2]
спасибо!!!

begin...end (2004-11-28 21:36:00) [3]
> xxxxx (28.11.04 21:31)

{$J+} ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »