Поиск нескольких типов файлов

[Kronos913]

Вот процедура для поиска файлов, которая автоматически сортирует по дате

procedure DirSearchSortDate(Dir: string; const Mask : string; SL: TStrings);
var
   SearchRec: TSearchRec;

   procedure SortFileDate;
   var
     i, d: longInt;
   begin
     d:=FileAge((Dir + SearchRec.Name));
     For i:=0 to SL.Count-1 do begin
       If d >FileAge(SL[i]) then begin
         SL.Insert(i, (Dir + SearchRec.Name));
         Exit;
       end;
     end;
     SL.Add(Dir + SearchRec.Name);
   end;

begin
   Dir := IncludeTrailingBackslash(Dir);
   if FindFirst(Dir + Mask, faAnyFile, SearchRec) = 0 then begin
     repeat
       Application.ProcessMessages;
       if (SearchRec.Attr and faDirectory)=0 then begin
          If not(SearchRec.Name='.') and not(SearchRec.Name='..') then
           SortFileDate;
       end;
     until FindNext(SearchRec)<>0;
   end;
   FindClose(SearchRec);
end;

При этом есть Mask задать условно '*.jpg', то будет искать только jpg

Вопрос: если мне надо 5 типов файлов найти, как лучше? 5 раз вызывать эту процедуру?
Или убрать маску, а внутри процедуры анализировать окончание имени файла?

Или может есть более лучший способ?

[NetSpace]

через цикл. передавай в процедуру поиска параметр - маску. типа так.

//где-то в начале программы
mask:array[1..5]of string;
mask=['*.jpg','*.jpeg','*.bmp','*.ico','*.ani'];
....
//где-то в недрах программы
for i=1 to 5 do DirSearchSortDate(твои параметры и маска mask[i])

нет, ну, хочешь 5 раз вызывай свою процедуру поиска по маске. почему бы и нет.

//где-то в недрах программы
DirSearchSortDate(твои параметры и маска *.jpg)
DirSearchSortDate(твои параметры и маска *.jpeg)
DirSearchSortDate(твои параметры и маска *.bmp)
DirSearchSortDate(твои параметры и маска *.ico)
DirSearchSortDate(твои параметры и маска *.ani)

[digitalis]

Можно за один вызов.

mask=['.jpg,.jpeg,.bmp,.ico,.ani'];

При входе в процедуру распарсить входную строку во внутри-процедурный массив string и затем уже циклы прокрутить внутри процедуры.
Хотя сэкономленные несколько микросекунд - дадут ли "чувство глубокого удовлетворения и законной гордости" ? © газета "Правда"
Да и не будет ли "экономия наоборот" ?