Oberste Elemente in Treeview finden?

[axelf98]

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