Conversion warning.

[Max Rusov]

Почему в случае приведения указателя к Cardinal/Integer выдается Hint или Warning:

Conversion between ordinals and pointers is not portable

а в случае приведения объекта - нет?

Код: Выделить всё

{$AppType Console}
{$Mode Delphi}

program CastTest;


procedure Test;
var
  P :Pointer;
  O :TObject;
begin
  P := nil;
  O := nil;
  writeln(Cardinal(P));
  writeln(Cardinal(O));
end;


begin
  Test;
end.


Код: Выделить всё

>ppcrossx64 CastTest.dpr
Free Pascal Compiler version 2.4.0rc1 [2009/12/09] for x86_64
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Win64 for x64
Compiling CastTest.dpr
CastTest.dpr(14,11) Warning: Conversion between ordinals and pointers is not portable
Linking CastTest.exe
21 lines compiled, 0.0 sec , 33408 bytes code, 1760 bytes data
1 warning(s) issued

[Mr.Smart]

Потому что у 64 битного процессора Pointer=64bit, а Cardinal=32bit. Используйте для преобразования не Cardinal, а PtrUInt.

[Max Rusov]

Mr.Smart
Еще раз вопрос прочитайте

Сформулирую иначе:

Почему в случае приведения объекта к Cardinal/Integer не выдается Hint или Warning: Conversion between ordinals and pointers is not portable