Поиск файлов сразу с несколькими расширениями. Как???

[Altera]

Доброго времени суток!
Помогите плиз!
Как мне запустить поиск сразу для двух расширений?
Ато вот так писать приходиться:

if findFirst(s+'*.bmp', faAnyFile, sr) = 0 then
   begin
      f_list.add(extractFileName(sr.Name));
      while findNext(sr) = 0 do f_list.add(extractFileName(sr.Name));
   end;
   if findFirst(s+'*.ico', faAnyFile, sr) = 0 then
   begin
      f_list.add(extractFileName(sr.Name));
      while findNext(sr) = 0 do f_list.add(extractFileName(sr.Name));
   end;
   if findFirst(s+'*.jpeg', faAnyFile, sr) = 0 then
   begin
      f_list.add(extractFileName(sr.Name));
      while findNext(sr) = 0 do f_list.add(extractFileName(sr.Name));
   end;

Заранее благодарю!!!

[Air]

А Вы попробуйте написать функции поиска, поместить каждую в отдельный поток и запустите эти потоки(у гравного процесса может быть сколь угодго потоков).

Или через таймеры, каждый по своему расширению.

[Altera]

Мне в данном случае это не поможет!
Мне может даже if...then воткнуть с проверкой и расширение '*.*'...
-------------------------------------
Я уже говорил, что у меня программа просмотра картинок!
Чтоб сделать картинок (<==предыдущая следущая==>), я поиском создаю список файлов с помощью поиска. Пример главного юнита во вложении...
Может посоветуете, как сделать поиск файлов лучше для данного случая! Спасибо!

[Air]

Почему нет...
маска *.*
Пробуйте в функции поиска проверять if (ExtractFileExt(sr.Name) = '.bmp') or (ExtractFileExt(sr.Name) = '.jpg') then то что то...

[Altera]

Сообщение от Air

Почему нет...
маска *.*
Пробуйте в функции поиска проверять if (ExtractFileExt(sr.Name) = '.bmp') or (ExtractFileExt(sr.Name) = '.jpg') then то что то...

Не что-то а скерее if not (ExtractFileExt(sr.Name) = '.bmp') or (ExtractFileExt(sr.Name) = '.jpg') then continue;

[Air]

Сообщение от Altera

Не что-то а скерее if not (ExtractFileExt(sr.Name) = '.bmp') or (ExtractFileExt(sr.Name) = '.jpg') then continue;

Ну я ж просто наводку дал

[mutabor]

Я такое делал массивом, можно объявить как константу, можно как переменную.

const
Exts: array[0..2] of string = ('.bmp','.jpg','.jpeg');

Потом ищи все подряд файлы и найденные пропускай через проверку не содержится ли расширение в массиве. Только используй AnsiLowerCase чтобы регистр не имел значения, в массиве Exts специально для этого маленькими буквами расширения.

[Altera]

А не подскажете, как зная имя файла и директорию, узнать имя файла, который стоит следующим после этого файла и имя предидущего?



После одного и того же файла, в зависимосте от сортировки (по имени, по типу, по дате или от растановки юзера) могут стоять разные файлы... Как мне узнать имена тех, которые стоят до и после определённого файла в данный момент??? Благодарю заранее!!!

[SNUPY]

Тебе это зачем?

[Altera]

Ну вот какая разнеца?

Прога просмотра картинок! Перелистывание - вперёд-назад...