发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 5.3 让你的程序暂停几秒
发信站: 哈工大紫丁香 (2000年09月01日16:12:15 星期五), 站内信件

让你的程序暂停几秒 

var
NumSec SmallInt;
StartTime: LongInt;
begin
StartTime := now;
repeat
Application.ProcessMessages;
until Now > StartTime + NumSec * (1/24/60/60);
end;


 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]