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.