Форум: "Основная";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
Внизесть процедура Найти похожие ветки
← →
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. Спасибо за всё.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c