GetFiles SearchPattern

[Willie1]

Zitat von ringli:

Zitat von Willie1:

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.