из C++Builder в Delphi

← →
lucky4me (2003-11-12 08:45) [0]

Помогите пожалуйста ...
как это выглядит на дельфи:
TList *FGrouptIds;
int OrdrId;
...
FGroupOrdrIds->Add( (PVOID)0 );
FGroupOrdrIds->Add( (PVOID)OrdrId );

← →
ЮЮ (2003-11-12 08:51) [1]

Не знаю как в Си, а в Delphi это будет так
var
FGrouptIds: TList;
OrdrId: integer;

...
FGrouptIds.Add(Pointer(0));
FGrouptIds.Add(Pointer(OrdrId));

← →
MBo (2003-11-12 08:52) [2]

FGroupOrdrIds.Add(nil);
FGroupOrdrIds.Add(Pointer(OrdrId));

← →
lucky4me (2003-11-12 09:02) [3]

>MBo © (12.11.03 08:52) [2]
если установить в nil
FGroupOrdrIds.Add(nil);

тогда как будет
int OrdrId = (int)FGroupOrdrIds->Items[ cbGroup->ItemIndex ];
...
if( !OrdrId ) ...

или же надо поменять алгоритм?

← →
MBo (2003-11-12 09:07) [4]

OrdrId := Integer(FGroupOrdrIds.Items[cbGroup.ItemIndex]);
if OrdrId<>0 then ...

← →
ЮЮ (2003-11-12 09:08) [5]

Pointer(0) = nil
Integer(nil) = 0

из C++Builder в Delphi Найти похожие ветки