Frage zu FindNext

[himitsu]

TDirectory.GetFileSystemEntries
TDirectory.GetDirectories
TDirectory.GetFiles
https://docwiki.embarcadero.com/Code...ation_(Delphi)

Da kann man so viel mit rumspielen:

Delphi-Quellcode:

uses System.IOUtils, System.StrUtils, System.DateUtils;

//var Files := TDirectory.GetFiles('C:\ProgramData\Embarcadero');

//var Files := TDirectory.GetFiles('C:\ProgramData\Embarcadero', '*.slip');

//var Files := TDirectory.GetFiles('C:\ProgramData\Embarcadero', '*.slip', soAllDirectories);

var Files := TDirectory.GetFiles('C:\ProgramData\Embarcadero', '*.*', soAllDirectories,
  function(const Path: string; const SearchRec: TSearchRec): Boolean
  begin
    //var FullName := Path + SearchRec.Name;
    //Result := SearchRec.TimeStamp > StartOfTheDay(Now) - 14;  // maximal zwei Wochen alt
    Result := EndsText(SearchRec.Name, '.slip');
  end);

for var FileName in Files do
  Memo1.Lines.Add(FileName);

oder direkt drin verarbeiten

Delphi-Quellcode:

TDirectory.GetFiles('C:\ProgramData\Embarcadero', '*.slip',
  function(const Path: string; const SearchRec: TSearchRec): Boolean  // muß keine anonyme Methode sein ... Funktionen und KlassenMethoden gehn auch
  begin
    Memo1.Lines.Add(TPath.Combine(Path, SearchRec.Name));
    Result := True;  // Result := not AbortButton.Down;
  end);

oder
oder
oder