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

Вниз

Как скомпилить такой код?   Найти похожие ветки 

 
xxxxx   (2004-11-28 21:31) [0]

это кусок кода из 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;


 
begin...end ©   (2004-11-28 21:36) [1]

> xxxxx   (28.11.04 21:31)

{$J+} ?


 
GuAV ©   (2004-11-28 21:38) [2]

а лучше

var
ExitProcList: PExitProcInfo = nil;

или

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


 
xxxxx   (2004-11-28 21:38) [3]

спасибо!!!



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

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

Наверх




Память: 0.47 MB
Время: 0.037 c
14-1101213427
pasha_golub
2004-11-23 15:37
2004.12.12
МВД: Человеческие качества


14-1101107413
leonidus
2004-11-22 10:10
2004.12.12
Кто какую систему контроля версий использует


9-1092055159
john black
2004-08-09 16:39
2004.12.12
Пример Jan Horn-a + Космос


14-1100925769
Alex_Petr
2004-11-20 07:42
2004.12.12
Они просто издеваются !


6-1096905757
N.H.
2004-10-04 20:02
2004.12.12
Как можно провер., что стр-ца, откр. брауз-ом - это стр-ца ош-ки?