Вниз
Скачать: CL | DM;

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

← →
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?


← →
Digitman ©   (2006-01-26 15:43) [6]

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

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


← →
Digitman ©   (2006-01-26 15:45) [7]


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


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

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


← →
Ell ©   (2006-01-26 15:51) [8]

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

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



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c
2-1138250467
mss
2006-01-26 07:41
2006.02.12
Как проиграть


15-1137653172
Rentgen
2006-01-19 09:46
2006.02.12
Дискретный аналоговый импульсный выход вход


15-1137764402
Харько
2006-01-20 16:40
2006.02.12
Я электризуюсь. Ужос!


15-1138145684
braynt
2006-01-25 02:34
2006.02.12
Работа с word


1-1137063029
Ega23
2006-01-12 13:50
2006.02.12
Как узнать ParentFont?




   Наверх