Einzelnen Beitrag anzeigen

Willie1

Registriert seit: 28. Mai 2008
652 Beiträge
 
Delphi 10.1 Berlin Starter
 
#1

GetFiles und TFilterPredicate

  Alt 12. Feb 2021, 15:41
Moin, Moin,
ich möchte aus einem Ordner nicht rekursiv alle Dateien mit der Endung .fus und der Dateigröße 2932 herausfiltern. Dazu bietet sich TDirectory.GetFiles an.
Ich habe mir mit Hilfe aus Stackoverflow das Folgende entwickelt:
Delphi-Quellcode:
function Filelist(const Path, Mask: string): TStringDynArray;
var
  SizeFilter: TDirectory.TFilterPredicate;
begin
  SizeFilter := function(const Path: string; const SR: TSearchRec): Boolean; //<------
  begin
    Result := SR.Size = 2932;
  end;

  Result := TDirectory.GetFiles(Path, Mask, SizeFilter);
end;
<--- Hier gibt es "Error 2029 Deklaration erwartet aber ; gefunden".
Kennt jemand die Lösung?
Willie.
Gut hören kann ich schlecht, schlecht sehen kann ich gut - Ersteres stimmt nicht, das zweite schon.
  Mit Zitat antworten Zitat