Habs getestet. Wird nix in die Stringliste geschrieben
Delphi-Quellcode:
//Listet alle Namen von Dateien in einem Verzeichnis
procedure ListDirFiles(sDir: string; const sList: TStrings);
var Rec: TSearchRec;
begin
sList.BeginUpdate;
try
sList.Clear;
if FindFirst(IncludeTrailingPathDelimiter(sDir) + '*.*', faAnyFile or faReadOnly or faHidden or faArchive, Rec) = 0 then
begin
repeat
if (((Rec.Attr and faAnyFile) = faAnyFile) and (Rec.Name <> '.') and (Rec.Name <> '..')) then sList.Add(Rec.Name);
until FindNext(Rec) <> 0;
SysUtils.FindClose(Rec);
end;
finally
sList.EndUpdate;
end;
end;
Habe auch probiert:
Delphi-Quellcode:
...
if FindFirst(IncludeTrailingPathDelimiter(sDir), faAnyFile, Rec) = 0 then
...
und
Delphi-Quellcode:
...
if (((Rec.Attr and faAnyFile) = Rec.Attr) and (Rec.Name <> '.') and (Rec.Name <> '..')) then sList.Add(Rec.Name);
...
Irgendwo ist noch nen kleiner Fehler drinne.