关于edit的问题(50分)

T

tatami

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #1

请问我按按钮的时候,为什么以下的edit1.clear总是不生效，而直接sleep一秒后出现i?

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.clear;
Sleep(1000);
edit1.text:=inttostr(i);
inc(i);
end;

 

S

sluger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #2

Sleep(1000);时间设置得太大了，1000，会 使你感到程序死了一样啊
建议时间设置得小一点。。。。
还有，你这个i 在哪里定义的啊，下面的话，可是不行的啊！！这个i干吗用的饿

procedure TForm1.Button1Click(Sender: TObject);
--var i：integer；
begin
edit1.clear;
Sleep(1000);
edit1.text:=inttostr(i);
inc(i);
end;

 

T

tatami

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #3

i我已经定义过了，程序没错误。而且向你这样的定义的话，inc不会起作用吧。
照例说，在sleep之前就应该把edit中的内容清空然后sleep过后在出现数字，
但实际上执行的时候却不是。

 

S

sliver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #4

为什么清空，直接付值不结了，同时也不该不行，你这样
edit1.text = '';

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #5

tatami（塔塔米）是日本人

 

T

tatami

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #6

我早已试过了edit1.text=''(应该效果劣与clear吧），不行的。

 

H

han

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #7

搞不懂到底要干什么

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #8

我也试过了，真的不行呀！奇怪！
我今晚研究一下

 

小

小猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-08

• #9

1000是一秒啊。

 

萧

萧月禾

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-08

• #10

话说真的不行呀！
sleep很奇怪
不如考虑让它执行空语句来延时


---你好，婧情

 

婧

婧情

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-08

• #11

111111

 

慕

慕容乾坤

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-08

• #12

应该这样:
edit1.clear;
edit1.fresh;
sleep(1000);
.
.
.

 

T

tatami

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-08

• #13

多人接受答案了。