关于时间等待的处理方法 (50分)

M

mingzhiwen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-28

• #1

本人欲在Delphi程序制作一个每隔0.1秒的循环,除用TTimer以外,
还有没有其它的解决办法,请指点.

 

G

generalzzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-28

• #2

可在工程文件中:
var
i:integer;
begin
i:gettickcount div 1000;
while ((gettickcount div 1000)<(i+2))do
sleep(1);
end;

 

B

big_jiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-28

• #3

<a href='http://www.delphibbs.com/delphibbs/dispq.asp?LID=453791'> 请查看一下的问题
</a>

 

J

jollier

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-28

• #4

可以采用递归调用函数的方法+Sleep：
Procedure Test();
begin
//SomeMessage;
Sleep(100);//将程序停止0.1秒
Test;//递归调用本过程
end;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-17

• #5

多人接受答案了。