Oberste Elemente in Treeview finden?

[Lannes]

Hallo,

du prüfst wahrscheinlich jedes Item auf Level = 0, oder?
Der folgende Code ist wesentlich schneller (100 oder 200x, muss ich mal genau testen )

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var z : Integer;
    ms : TMemoryStream;
    sl : TStringList;
begin
   ms := TMemoryStream.Create;
   sl := TStringList.Create;
   try
     TreeView1.SaveToStream(ms);
     ms.Position := 0;
     sl.LoadFromStream(ms); //TreeView1.SaveToStringlist gibt es glaube ich nicht
     for z := 0 to sl.Count-1 do
       begin
         if sl[z][1] <> #09 then//#09 = Tabulator
           Memo1.Lines.Add(sl[z]);
       end;
   finally
     ms.Free; //wieder freigeben
     sl.Free;
   end;
end;