Schön, dass Du meine Änderungen übernommen hast und sogar daraufhin noch eine Schritt weiter gegangen bist
Nun, es stellt sich due Frage, wie schnell der Verzeichnisbaum aufgebaut werden soll: scheibchen weise, also immer nur die benötigte Struktur oder gleich vollständig mit allen Strukturen!
Im ersten Fall hat man natürlich das '+' auch an den Knoten, die evtl. keine weiteren Kinder haben - gut, ein Klick vergeblich, aber das '+' verschwindet dann ja...
Der zweite Fall prüft, ob evtl mindest ein Unterverzeichnis vorhanden ist...nimmt also etwas Zeit in Anspruch (bei einem Verzeichnis, was tonnenweise nur Dateien und kein UVZ hat, dauert das natürlich...), um evtl das '+' anzuzeigen.. Nun, dann kann ich ja auch gleich die komplette Struktur einlesen
Nichts für ungut, wollte halt nur meine Gedanken diesbezüglich kundtun.
Das hier kannst Du noch etwas verbessern:
Delphi-Quellcode:
function TForm2.GetAnderDir(dir:String):boolean;
var
sr:TSearchRec;
begin
RESULT := False; //<<--vorbelegen
if FindFirst(Dir+'\*.*', faAnyFile,SR) = 0 then
repeat
RESULT := (sr.Name[1] <> '.') and (sr.Attr and faDirectory > 0)
until RESULT or (FindNext(sr) <> 0); //<--Abbruch bei RESULT=True oder wenn Verzeichnis komplett durch
FindClose(sr);
end;