pętla i progress bar

0

Mam petle :

<font color="blue">FOR i:=1 to [jakaś wartość, np n] do
begin
...
end;</span>

I teraz chcę, aby postęp pętli był widoczny na TProgressBar. Pamiętam, że jakoś się to z operacją DIV robiło, ale już nie pamiętam, a da się zrobić, bo jest znana ilość wykonania pętli.

<font color="blue">Progress.MinValue := 0;
Progress.MaxValue := 10;</span>

PS: Chce jeszcze aby Progress wyglądał jak kopiowanie plików w WIN XP, znaczy takie niebieskie kwadraciki.

Z góry THX.

0
var
I:Integer;
begin
ProgressBar1.Min:=0;
ProgressBar1.Max:=1000;
for I:=0 to 1000 do
ProgressBar1.Position:=I+1;
Sleep(1000);
end;

Na tym przykladzie widzisz jak Progress zmienia swoją pozycję.
Zamiast jedynki mozesz wstawiac dowolna wartosc o jaka ma sie posuwac progress.

0

Można też tak:

for i:=1 to n do 
begin 
progressbar.position:=i*progressbar.max div n;
end; 
0

Dzięki wszystkim, zwłaszcza Thenkles - właśnie o to chodziło
progressbar.position:=i*progressbar.max div n;

1 użytkowników online, w tym zalogowanych: 0, gości: 1