Текущий архив: 2003.08.14;
Скачать: CL | DM;

Вниз

Как приделать progressbar, к процедуре, в цикле?   Найти похожие ветки 

← →
Delphimun   (2003-06-13 12:50) [0]

Допустем у меня цикл, скажем такой:
for i := 0 to 10000 do begin
listbox1.items.strings[i] := inttostr(a)+i;
....
end;

Как мне приделать, к нему progressbar, чтобы процент выполнения показывал?

---

← →
clickmaker ©   (2003-06-13 13:34) [1]

ProgressBar.Max := 10000;
ProgressBar.Step := 1;
for i := 0 to 10000 do begin
listbox1.items.strings[i] := inttostr(a)+i;
ProgressBar.StepIt;
end;

---

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

Текущий архив: 2003.08.14;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.011 c