Hvordan recusively liste alle filene i directories.procedure GetFiles (Resultat: TStrings; Sti: string; IncludePath: Boolean = False); Var R: Integer; SR: TSearchRec; ThePath: string; begynne Assert (Resultat < > null, "Resultat er Nill '); ThePath: = ExtractFilePath (Sti); ThePath: = IncludeTrailingBackSlash (ThePath); R: = FindFirst (Path, faAnyFile, SR); mens R = 0 gjør begynne hvis IncludePath deretter Result.Add (ThePath + SR.Name) annet Result.Add (SR.Name); R: = FindNext (SR); slutt; FindClose (SR); end; Anmeldelser