如何等待0.5秒

Question

Sleep（500）函数没有办法精确的延时0.5秒,因为没有设置时钟频率时，Sleep函数只能精确到1000/18.2毫秒(因为系统每秒产生18.2次时间中断).

Answer 1

使用SetTimer(...)将时间间隔设为500，当第一次调用OnTimer事件便把刚才的计时器杀死，达到延时的效果

Answer 2

其实很简单的，
用一个api函数就可以了！
var
  ltimer:ttimer;
begin
  ltimer:=gettickcount;
  while ((gettickcount-ltimer)/1000<0.5) do ;
  //这样就可以了实现等待0。5秒了
end;