TTreeNode um eine weitere Variable erweitern

[Nogge]

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?