Как объект передать через интовую переменную?

← →
newbie2 (2006-09-07 12:27) [0]

интересует преобразование типов

iLink : integer; myObject : TmyObject; ... iLink := integer(@myObject); ... myObject := TmyObject(? здесь как должно быть написано)

спасибо

← →
Zeqfreed © (2006-09-07 12:29) [1]

Pointer(iLink)

← →
Сергей М. © (2006-09-07 12:30) [2]

iLink : integer;
myObject : TmyObject;
...
iLink := integer(pointer(myObject));
myObject := TmyObject(pointer(iLink));

← →
Zeqfreed © (2006-09-07 12:32) [3]

Ой, действительно, в [2] правильный вариант :)
Я как-то не обратил внимания, что @myObject это будет косвенный указатель.

эх, мастера громоздкого кода:)
var
iLink : integer;
myObject : TmyObject;
begin
iLink := integer(myObject);
myObject := TmyObject(iLink);
end;

проще надо быть

Как объект передать через интовую переменную? Найти похожие ветки