5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
dyny 2001-12-10
- 打赏
- 举报
PROCEDURE PDelay(ms:Integer);
VAR FirstTickCount:longint;
BEGIN
FirstTickCount:=GetTickCount;
REPEAT
Application.ProcessMessages;
UNTIL ((GetTickCount-FirstTickCount) >= Longint(ms));
END;
VAR FirstTickCount:longint;
BEGIN
FirstTickCount:=GetTickCount;
REPEAT
Application.ProcessMessages;
UNTIL ((GetTickCount-FirstTickCount) >= Longint(ms));
END;
kevin_gao 2001-12-10
- 打赏
- 举报
sleep
Greenberet 2001-12-10
- 打赏
- 举报
or SleepEx .......
taxi 2001-12-10
- 打赏
- 举报
^
liang_z 2001-12-10
- 打赏
- 举报
来迟了
BoningSword 2001-12-10
- 打赏
- 举报
试一试用sleep（2000）；
