ProgresBar для выборки

[randrews]

[quote=art;357412]

Цитата:

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

Получается прогресс будет прыгать , то вперед, то назад ?

Почему? Может я чего-то не вижу. Будет по I равномерно идти, а по J - в зависимости от кода. То есть
1 итерация первого цикла (вложенный цикл большой)
2 итерация первого цикла (вложенный цикл маленький)
3 итерация первого цикла (вложенный цикл большой)
Должно - треть прогресс бара идти медленно, вторая треть быстро, третья медленно.

Ах, да. I := I + 1 лучше в конец поставить - ошибся.
Перед UNTIL Employee1.NEXT = 0;