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 -> < oder > Das verbessert