Поиск файлов + ProgressBar

[Lardes]

Как реализовать индикатор прогресса во время поиска файлов? Есть идеи?

procedure AddFilesFromFolder(Folder: string);
 var
   Rec: TSearchRec;
 begin
   Folder := IncludeTrailingBackslash(Folder);
   if (FindFirst(Folder + "*.*", faAnyFile, Rec) = 0) then
   begin
     repeat
       if ((Rec.Attr and faDirectory) = faDirectory) then
       begin
         if (Rec.Name <> "..") and (Rec.Name <> ".") then
           AddFilesFromFolder(Folder + Rec.Name + "\");
       end else
       begin
         DirList.Items.Add(Folder + Rec.Name);
         Application.ProcessMessages;
       end;
     until (FindNext(Rec) <> 0);
     FindClose(Rec);
   end;
 end;

[Vova777]

Может нужно попробовать считать циклы:

repeat
...
until

Если вам заранее не известно максимальное число циклов, то может сначала попробовать это вычислить (естественно программно ) и уже потом производить счет.

[Человек_Борща]

Зачем? Бесконечный прогрессбар.

[Vova777]

Сообщение от Человек_Борща

Зачем? Бесконечный прогрессбар.

Бесконечный прогрессбар + считать циклы. Оптимальный вариант.

[Lardes]

Сообщение от Vova777

Если вам заранее не известно максимальное число циклов, то может сначала попробовать это вычислить (естественно программно ) и уже потом производить счет.

... можно организовать в два потока: 1-ый поток - подсчитывает, 2-ой - поиск + индикатор отображения. ИМХО, практическая польза от этого минимальна.

Есть другие пути, не прибегая к этому методу?

[Человек_Борща]

Читайте выше.
Пример можно при запуске xP винды увидеть.