Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Вниз

FindNext - поиск заново   Найти похожие ветки 

← →
Dmitriy M. Volkov   (2003-11-17 14:15) [0]

Вот не пойму одной вещи - как начать поиск файлов заново. Вроде сделал вот так:

FindNext(srImageFile);
if GetLastError = 10 then
begin
FindClose(srImageFile);
FindFirst(Reg.ReadString(RegPath, "FolderWithImages", ExtractFilePath(Application.Exename))
+ "/*.jpg", faAnyFile, srImageFile);
end;


Но почему-то всё равно всё заканчивается, как только кончаются файлы в папке :( Помогите, плз, кто может.

Кстати, как сделать, чтобы ловились файлы расширениями не только jpg, но и gif, например?

Спасибо!

---

← →
[lamer]Barmaglot   (2003-11-17 14:17) [1]

FAQ?
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19

>Кстати, как сделать, чтобы ловились файлы расширениями не
>только jpg, но и gif, например?

Запустить поиск два раза?

---

← →
TUser   (2003-11-17 14:31) [2]

FindClose(...)
FindFirst(...)
...
repeat
if (extractfilename(...)=".jpg") or (extractfilename(...)=".gif" then do someting
until FindNext(...)<>0;
FindClose;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c