есть процедура

← →
ed (2003-01-17 12:26) [0]

Есть процедура.
procedure FirstPicture;
var
r : integer; // результат поиска файла
begin
APath:="D:\фото\";
r := FindFirst(aPath+"*.jpg",faAnyFile,aSearchRec);
if r = 0 then
begin
aFile := aPath + aSearchRec.Name;
Form1.WebBrowser1.Navigate(aFile); // загрузить иллюстрацию

r := FindNext(aSearchRec); // найти следующий файл
if r = 0 then // еще есть файлы для просмотра
Form1.Button1.Enabled := True;
end;
end;
Нужно чтобы в строке:

r := FindFirst(aPath+"*.jpg",faAnyFile,aSearchRec);было не только "*.jpg",а (*.jpg;*.bmp;*.gif;*.html).

Мастера! Помогите пожлуйста.

← →
Smithson © (2003-01-17 12:51) [1]

Делать процедуру, которой передается маска поиска и вызывать для каждого требуемого расширения.

← →
Sha © (2003-01-17 15:41) [2]

Ставь маску "*.*" и отбрасывай ненужные файлы, анализируя aSearchRec.name. Т.о. за один проход по каталогу получишь все нужные имена файлов.

← →
ed (2003-01-19 10:24) [3]

Sha. Спасибо, а на примере можно?

← →
ed (2003-01-19 10:29) [4]

Sha.Если можно сбрось пример на e-mail. Спасибо за всё.

есть процедура Найти похожие ветки