процент выполнения

← →
Daria (2006-01-26 15:23) [0]

и еще вопрос.
как отображать процент выполнения программы?

← →
kukuikar © (2006-01-26 15:25) [1]

Сколько сделано программой поделить на 100....
Вот тебе и процент выполнения.

← →
Daria (2006-01-26 15:26) [2]

?? а что сделано-то?
у меня в консоле волжно отодражаться "обработано " и выполненный %. чтобы можно было следить, когда прога дойдет до 100%, то все сделано

← →
Vlad © (2006-01-26 15:30) [3]

> Daria (26.01.06 15:26) [2]

Писать в консоли - write, writeln

← →
Sergey13 © (2006-01-26 15:35) [4]

2[2] Daria (26.01.06 15:26)
>?? а что сделано-то?
8-))))))))))))))))))))))))))))))))))))))))))))

← →
Ell © (2006-01-26 15:42) [5]

Кстати, насчёт процента выполнения.
Давно хотел спросить, сейчас вспомнил. Можете мне ответить, что за фигня получается? Помещаем на форму TButton и TprogressBar. Пишем:

procedure TForm1.Button1Click(Sender: TObject); begin beep; for i:=1 to 1000 do begin sleep (1); ProgressBar1.Position:=i; end; beep; end;

Почему не соответствует промежуток между бипами скорости заполнения ProgressBar?

Даша, вообще-то "консоль" - оно женского рода.

И write()/writeln() вне зависимости от рода разного рода консолей (пардон за каламбур) - верное направление ..

> Почему не соответствует промежуток между бипами скорости
> заполнения ProgressBar?

Потому что ты не даешь возможности окну прогресса перерисоваться вовремя ..

На то существует как минимум метод Update()

Блин, ерунду я в [5] написал, надо было
ProgressBar1.Position:=i div 10;
невнимательный, сорри....

(Просто, что-то подобное вспомнилось, когда один процесс выполнялся быстрее другого, если вспомню, приведу пример)

процент выполнения Найти похожие ветки