der code funktioniert.
Delphi-Quellcode:
//Listet alle Namen von Ordnern in einem Verzeichnis
procedure ListSubDirs(sDir: string; const sList: TStrings);
var Rec: TSearchRec;
begin
sList.BeginUpdate;
try
sList.Clear;
if FindFirst(IncludeTrailingPathDelimiter(sDir) + '*.*', faDirectory or faReadOnly or faHidden or faArchive, Rec) = 0 then
begin
repeat
if (((Rec.Attr and faDirectory) = faDirectory) and (Rec.Name <> '.') and (Rec.Name <> '..')) then sList.Add(Rec.Name);
until FindNext(Rec) <> 0;
SysUtils.FindClose(Rec);
end;
finally
sList.EndUpdate;
end;
end;
je nach dem was du nun machen willst, ist dieser code umzuschreiben oder nicht. so wie es in der ersten zeile steht, werden alle ordnernamen eines verzeichnisses in der sList:TStrings gelistet.