Es gibt eine aufwendige, dafür aber perfekte Lösung, um allgemein Werte in
Data zu speichern:
Delphi-Quellcode:
PIntRec = ^TIntRec;
TIntRec = record
Value : Integer;
end;
[...]
var
DataPointer:PIntRec;
[...]
{ -- Data mit Daten füllen -- }
Node:=TV.Items.AddChild(Parent,String);
New(DataPointer);
DataPointer^.Value := Value; // z.B. dein Integer-Wert
Node.Data := DataPointer;
[...]
{ -- TreeNodes freigeben (z.B. bei OnClose -- }
for i:=TV.Items.Count-1 downto 0 do
begin
Dispose(PIntRec(TV.Items.Item[i].Data));
TV.Items.Item[i].Data:=nil; // wird nicht benötigt (nach sakura)
end;
end;
Was ist denn so schlimm daran, beim Beenden des Programms
Data auf
nil zu setzen?