Alle Dateien aus einem Ordner laden

[cherry]

Delphi-Quellcode:

 procedure bla();
 var
  FList: TStrings;
  srDir: TSearchRec;
 begin
  FList := TStrings.Create

  FindFirst(Path+'*',faAnyFile,srDirs);
  repeat
   if ((srDirs.Attr and faDirectory) <> 0) and (srDirs.Name <> '.') and (srDirs.Name <> '..') then
    FList.Add(srDirs.Name)
  until FindNext(srDirs) <> 0;
 end