Delphi-Quellcode:
//Ordnernamen in einem Verzeichnis ermitteln
procedure ListSubDirs(Dir: string; var sList: TStrings);
begin
Dir:=TempDownloadDir
ChangeCurrentDir(Dir);
FindFirst(GetCurrentDir, faDirectory, sList);
FindNext(sList);
end;
So siehts bis jetzt aus. In dem Fall findet er nur den ersten Ordner und den folgenden. So möchte ich es aber haben:
Delphi-Quellcode:
//Ordnernamen in einem Verzeichnis ermitteln
procedure ListSubDirs(Dir: string; var sList: TStrings);
begin
Dir:=TempDownloadDir
ChangeCurrentDir(Dir);
FindFirst(GetCurrentDir, faDirectory, sList);
while {letzter Ordner nicht gefunden} do FindNext(sList);
end;
Wie könnte ich den letzten Ordner ermitteln? Halt diese Schleife zum Ende zwingen?
Und ich verstehe immer noch nicht was ich mit den Longint-Werten anstellen soll? Was sagen die aus?