Verzeichnisse nach Dateien durchsuchen

[CalganX]

mirage228 hat noch auf folgendes hingewiesen:

Zitat von mirage228:

Mir ist ein kleiner Fehler aufgefallen:
IncludeTrailingPathDelimiter(RootFolder); Erstmal ist IncludeTrailingPathDelimiter eine Funktion, die das Ergebnis im Rückgabewert hat und außerdem gibt sie erst ab Delphi 4 oder höher (genauso, wie IncludeTrailingBackslash)

Ich verwende dabei diesen Code, der dem dort oben recht ähnlich ist:

Delphi-Quellcode:

procedure FileList(const APath, AExt: string; ARecurse: Boolean;
  AList: TStrings);
var
  F    : TSearchRec;
  Path : string;
begin
  Path := IncludeTrailingPathDelimiter(APath); // nur für Delphi 4 und höher!
  if (ARecurse) and
    (FindFirst(Path + '*.*', faAnyFile, F) = 0) then
  try
    repeat
      if (F.Name <> '.') and (F.Name <> '..') and
        ((F.Attr and faDirectory) = faDirectory) then
        FileList(Path + F.Name, AExt, ARecurse, AList);
    until FindNext(F) <> 0;
  finally
    FindClose(F);
  end;
  if FindFirst(Path + AExt, faAnyFile, F) = 0 then
  try
    repeat
      if (F.Name <> '.') and (F.Name <> '..') and
        ((F.Attr and faDirectory) <> faDirectory) then
        AList.Add(Path + F.Name);
    until FindNext(F) <> 0;
  finally
    FindClose(F);
  end;
end;