Текущий архив: 2003.11.27;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.023 c
