Meine Lösung mit einem Array:
Delphi-Quellcode:
var
IDS: Array of Integer;
... // Füllen des Baumes
New := TW.Items.Add(nil,'Neuer Hauptknoten');
setlength(IDS,length(IDS)+1);
IDS[length(IDS)-1] := New.AbsoluteIndex;
... // Aufrufen der Knoten
For i := 0 to length(IDS)-1 do
begin
node := TW.Items[IDs[i]];
memo1.lines.add(node.text);
end;
Der Code ist aus meinem aktuellen Projekt
NWS. Da werden Verzeichnisstrukturen eingelesen. So kommt es schon auf Speed an, denn C: kann schon mal mehr als 10 Ordner haben
