进度条progressbar怎么样精确的计算操作的进程以及控制小方块的填充???比如说 ( 积分: 50 )

X

xzb_97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-23

• #1

如果要计算1加到10000的和,用上progressbar怎么来表示??请用代码说明!!!

 

H

hawii

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-23

• #2

var
i,v:Integer;
begin
ProgressBar1.Min:=1;
ProgressBar1.Max:=10000;
ProgressBar1.Step:=1;
v:=0;
for i:=1 to 10000
begin
inc(v,i);
ProgressBar1.StepIt;
end;
end;

 

H

hawii

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-23

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
i,v:Integer;
begin
ProgressBar1.Min:=0;
ProgressBar1.Max:=10000;
ProgressBar1.Step:=1;
v:=0;
for i:=1 to 10000 do
begin
inc(v,i);
ProgressBar1.StepIt;
end;
end;

 

X

xzb_97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-23

• #4

谢谢，我研究一下就给分！

 

X

xzb_97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-23

• #5

多人接受答案了。