有关Application.ProcessMessages;的问题，请大家帮忙(50分)

Y

yhl1118

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-13

• #1

我们在程序中经常加入这个语句，为了能响应其他消息，尤其在循环语句中，如：
for i := 0 to 10000 do
begin
//...
Application.ProcessMessages;
end;
但是这样好象cpu的占用率变成了100，就是在一个线程中也是如此，有没有其他方法。

 

W

w12345678

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-13

• #2

好像有一个sleep api函数的记不清啦，查一查帮助看看

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-13

• #3

Sleep不提供处理外界消息的功能。

 

Y

yzhshi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-13

• #4

不过，Application.ProcessMessage似乎可以。
CPU不应该占用太多啊。

 

Y

yhl1118

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-13

• #5

确实达到了100%，有没有好的解决方法？

 

H

Huzzz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-13

• #6

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for i := 0 to 1000000000 do
begin
//...
Application.ProcessMessages;
if Application.Terminated then
Exit;
Sleep(5);
end;
end;

 

Y

yhl1118

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-17

• #7

多人接受答案了。