CodeLibrary: FindAllFiles Code

[mirage228]

Hi,

Ich habe mir mal den FindAllFiles Code von http://www.delphipraxis.net/viewtopic.php?t=2464 angeschaut.

Mir ist dabei ein kleiner Fehler aufgefallen:

Delphi-Quellcode:

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 in der CL 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;

mfG
mirage228

[DP-Maintenance]

Dieses Thema wurde von "Daniel" von "Sonstige Fragen zu Delphi" nach "Neuen Beitrag zur Code-Library hinzufügen" verschoben.

[DP-Maintenance]

Dieses Thema wurde von "Chakotay1308" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Sonstige Fragen zu Delphi" verschoben.
Und zurück in die DP damit. :stupid: Beitrag befindet sich nun hier in der Code-Library.

[sakura]

Ihr schiebewütigen :lol: Ich habe den CodeLib Eintrag angepasst. Danke :oops:

...:cat:...