Ok, der Test mit den ShowMessages war wohl falsch...
Deshalb hier nochmal mein Problem:
Was ich will:
Ich habe ein TTreeNode mit dem namen node. Dessen Adresse möchte ich als String speichern und später möchte ich wieder auf node zugreifen.
Was ich mache:
Delphi-Quellcode:
var str: string;
procedure Nr1;
var int: integer;
node: TTreeNode
begin
node := Tree.Items.AddChildFirst(Tree.Selected, 'Neu');
int := Integer(@Node);
str := inttostr(int);
end;
procedure Nr2;
var p: ^TTreeNode;
tmpNode: TTreeNode;
begin
tmpNode := nil;
p := Pointer(StrToInt(str));
tmpNode := p^;
end;
Jetzt sollte tmpNode = node sein, ist es aber nicht...