Dateisuch mit variablen Filter, aber wie?

[DeddyH]

Delphi-Quellcode:

var ArrStr: array of string;

    procedure AddExtension(const sExt: string);
    begin
      SetLength(ArrStr,Length(ArrStr) + 1);
      ArrStr[High(ArrStr)] := sExt;
    end;
 
begin
  SetLength(ArrStr,0);
  if cbAvi.Checked then
    AddExtension('.avi');
  if cbMp3.Checked then
    AddExtension('.mp3');
  ...
  FindAllFiles(FileLis, RootFolder, ArrStr); 
end;

Ungetestet.