|
Окно -> Dialog
Всего -> Integer
Позиция -> Integer
Таблица -> Record
Окно.OPEN('Прогресс ' + '@1@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@');
Таблица.reset;
Всего:=Таблица.Count;
Позиция:=0;
if Таблица.find('-') then begin
repeat
Позиция+=1;
Окно.UPDATE(1,ROUND(Позиция/Всего*10000,1));
until Таблица.next()=0;
end;
Окно.CLOSE;
|