TTreeView alles dopelt, warum ?

[ChrisE]

Hallo raigun, hallo mimi,

also das mit dem '+' ist so ne Sache, dass stimmt. Aber wenn man in der Methode GetAnderDir mit FindFirst gleich nur nach Verzeichnissen suchen läßt, sollte es schneller gehen. Das sieht dann so aus:

Delphi-Quellcode:

function TForm2.GetAnderDir(dir:String):boolean;
var
  sr:TSearchRec;
begin
  RESULT := False;  //<<--vorbelegen
  if FindFirst(Dir+'\*.*', faDirectory,SR) = 0 then //<<--faDirectory sollte hier die Lösung sein
    repeat
      RESULT :=  (sr.Name[1] <> '.');
    until RESULT or (FindNext(sr) <> 0); //<--Abbruch bei RESULT=True oder wenn Verzeichnis komplett durch
  FindClose(sr);
end;

Ich denke das dürfte beide Seiten zufrieden stellen. Ich bin mir aber nicht 100% sicher, ob das dann wirklich schneller ist. Hängt davon ab, wie FindFirst/FindNext arbeiten. Sollte man mal testen

Gruß, Chris

//Edit: Irgendwie werden die '<' und '>' im Quelltext-Tag durch das Zitat in das HTML-Äquivalent geändert -> &lt; oder &gt; Das verbessert