Ich habe verstanden und weiß, wie es geht. Die "Suchmaske" mit den ; ist zu schön, um wahr zu sein.
Im Anhang eine Demo wie es funktioniert.
Hier im Forum bekommt man immer eine gute Lösung. Danke. Aber wie wäre es damit:
Delphi-Quellcode:
function FilterFiles(const Path, Mask: string): TStringDynArray;
var
TypeFilter: TDirectory.TFilterPredicate;
Ext: Tfilename;
begin
TypeFilter := function(const Path: string; const SR: TSearchRec): Boolean
begin
Ext :=LowerCase(ExtractFileext(SR.Name));
Result := Pos(Ext, string('.bmp;.jpg;.jpeg;.tif;.gif;.png;.heic;')) > 0;
end;
Result := TDirectory.GetFiles(Path, Mask, TypeFilter);
end;
Das ist meine eigene Idee. Wo die Performance besser ist, weiß ich nicht. Willie.