Текущий архив: 2006.01.22;
Скачать: CL | DM;

Вниз

Ускорение поиска файлов   Найти похожие ветки 

← →
Dmitrij_K   (2005-12-29 13:34) [0]

У меня есть алгоритм, который ищет в определенной папке каталоги, а в найденных каталогах смотрит есть ли там хоть один файл(вот тут как-раз очень долго работает). Как можно ускорить этот алгоритм?

function daj_typ(const dir:AnsiString):Integer;
var ret : Integer;
   ssr : TSearchRec;
begin
 ret := 0;
 if FindFirst(daj_slash(dir)+"*.*", faAnyFile, ssr)=0 then
 begin
   repeat
     if (ssr.Attr and faDirectory)=0 then
     begin
       ret := 1;
       break;
     end;
   until FindNext(ssr)<>0;
 end
   else
 begin
   ret := 2;
 end;
 FindClose(ssr);
 result := ret;
end;

---

← →
TUser ©   (2005-12-29 13:45) [1]

Ускорить вряд ли. Смущает также вот такое условие

> daj_slash(dir)+"*.*"

У тебя все папки имеют точку в названии?

---

← →
Anatoly Podgoretsky ©   (2005-12-29 13:45) [2]

Здесь нет поиска во вложенных папках

---

← →
Dmitrij_K   (2005-12-29 14:40) [3]

> У тебя все папки имеют точку в названии?

Всегда так использую, и все находит.
Перефразируя, как быстро проверить, находится ли в папке что-нибудь?
На чистом винапи, те через findfirstfile ускорение минимальное.

---

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

Текущий архив: 2006.01.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.045 c