alle dateien eines ordners ausgeben

[Niko]

Hallo, herzlich willkommen in der Delphi-PRAXiS!

Das sollte etwa so gehen:

Delphi-Quellcode:

procedure FindAll(Path: String; List: TStringList);
var
  SearchRec: TSearchRec;
begin
  List.Clear;
  if FindFirst(Path + '*.*', faAnyFile, SearchRec) = 0 then 
    repeat
      List.Add(SearchRec.Name);
    until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

[EDIT] Bin ich langsam
FindClose ergänzt[/EDIT]