GetFiles

GetFiles

GetFiles : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie alle Dateien in den Verzeichnissen recusively aufgelistet.
Verfahren GetFiles (Ergebnis: TStrings; Pfad: String; IncludePath: Boolean = False);
var
R: Integer;
SR: TSearchRec;
ThePath: String;
beginnen
Geltend machen (führen <>, NULL, 'Ergebnis ist Nill');
ThePath: = ExtractFilePath(Path);
ThePath: = IncludeTrailingBackSlash(ThePath);
R: = FindFirst (Pfad, FaAnyFile, SR);
und R = 0 zu tun
beginnen
Wenn IncludePath dann
Result.Add (ThePath + SR. Name)
sonst
Result.Add (SR. Name);
R: = FindNext(SR);
Ende;
FindClose(SR);
Ende;