如何显示从1到10000的过程？(20分)

城

城里的月饼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #1

各位老大：
用for语句和inttostr()来使label1.caption实现从1到10000的变化，
为何在等待一段时间后只显示了10000，而不显示变化的过程呢？？

 

C

chlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #2

用一个TTimer控件
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption := inttostr(i);
i:=i+1;
end;

 

W

wus001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #3

for i:=1 to 1000do
begin
.....
label1.caption := IntToStr(i);
label1.refresh;
.....
end;

 

C

chlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #4

还要加判断 i 要小于 10000
var
Form1: TForm1;
i:integer;

 

城

城里的月饼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #5

问题是：我不想用Timer控件。而且我用过，也不好使。。。对不起

 

C

chlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #6

那就用wus001的方法,但是显示速度不能控制

 

D

dxd0222

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #7

var
CT:LongInt;
i:integer;
begin
For i := 0 to 100
begin
label1.caption := IntToStr(i);
CT := GetTickCount div 1000;
While ((GetTickCountCount div 1000) < (CT + 2))do
;
end;
end;

上面的代码应该好使

 

S

shangcm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #8

在循环体中加入sleep;
n的取值你自己决定吧
for i:=1 to 10000do
begin
.....
label1.caption := IntToStr(i);
label1.refresh;
.....
sleep(1000);
end;

 

C

cmtan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #9

procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
begin
for i:=1 to 1000do
begin
label1.caption := IntToStr(i);
Application.ProcessMessages;
end;
end;

 

P

pcexplorer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #10

同意 cmtan
简洁明了

 

Z

zeewoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-19

• #11

放一个Ttimer,i定义为全局变量初始化为1;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption := inttostr(i);
inc(i);
if i>10000 then
//如果要循环显示，改成
timer1.enabled:=false;
// if i>10000 then
i:=1;
end;

 

X

xygz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #12

跟算法没有关系，程序在完成之后才刷新屏幕，你当然看不到过程，所以一定要在处理过程中不短
地让系统刷新，
用label.refresh或application.processmessage都可以。

 

江

江维

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #13

来晚啦！

 

Y

Yason

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-20

• #14

用一个线程处理。

 

城

城里的月饼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-23

• #15

多人接受答案了。