| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
есть процедура [D6]
ed © (2003-01-17 12:26:00)Есть процедура.
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).
Мастера! Помогите пожлуйста.
ed (2003-01-19 10:29:00) [1]Sha.Если можно сбрось пример на e-mail. Спасибо за всё.
ed (2003-01-19 10:24:00) [2]Sha. Спасибо, а на примере можно?
Sha (2003-01-17 15:41:00) [3]Ставь маску "*.*" и отбрасывай ненужные файлы, анализируя aSearchRec.name. Т.о. за один проход по каталогу получишь все нужные имена файлов.
Smithson (2003-01-17 12:51:00) [4]Делать процедуру, которой передается маска поиска и вызывать для каждого требуемого расширения.
| |
