Как приделать 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;

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