Suchfilter mit mehr als einem Dateityp?

[Plague]

Hallo,

ich würde gerne meinen folgenden Code soweit verändern, dass ich mehr als nur einen Dateityp suchen lasse.
Ich habe nur keine Idee wie ich das machen kann?!

Delphi-Quellcode:

Filter :=  '*.jpg';
  SelectDirectory('Select a directory', '', Dir);
  Application.ProcessMessages;
  RES := findfirst(Dir+'\'+Filter ,faanyfile-faDirectory,SEARCH);

Gruß
Thomas

[Lemmy1]

Ich glaube, das geht mit '*.jpg;*.jpeg'....bin aber auch nicht ganz sicher.

Ansonsten einfach öfters die Funktion aufrufen?

[Lannes]

Hallo,
zwei in der Form "*.jpg;*.jpeg" mit Semikolon als Trenner ist nicht möglich.
Angeben könntest Du folgendes: '*.jp*g', das findet dann jpg und jpeg (und eventuell noch was anderes :? )
Ansonsten mit Findfirst und Filter *.* suchen, bei den Gefundenen dann die Extension prüfen.

[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