Pointer auf Object in Variant speichern und wieder auslesen

[daywalker9]

Wenn dann so:

VarToInt gibts leider nicht. Um auf den Integer Wert zu kommen kannst Du einfach TVarData nutzen um auf den Pointer zuzugreifen.

Delphi-Quellcode:

 

var
  V : Variant;

begin
  item := Items.Add;

  V := Integer(Item);

  Item := TListItem(PInteger(TVarData(V).VPointer)^);
end;