Suchfilter mit mehr als einem Dateityp?

[marabu]

Mit D7 geht auch das:

Delphi-Quellcode:

uses
  QFileCtrls;

procedure GetFiles(dir, fileSpecs: String; s: TStrings);
var
  d: TDirectory;
  i: Integer;
begin
  d := TDirectory.Create(nil);
  d.BeginUpdate;
  d.FileMask := fileSpecs;
  d.Location := dir;
  d.FileType := [ftArchive];
  d.EndUpdate;
  s.Clear;
  for i := 0 to Pred(d.Count) do
    s.Add(d.Files(i).SR.Name);
  d.Free;
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  GetFiles('D:\Images', '*.jpg;*.jpeg', ListBox.Items); 
end;

Grüße vom marabu