能不能不使用时间控件，写代码使程序等待一段小时间？

Question

代码怎么写啊？
学习中......

Answer 1

The Sleep function suspends the execution of the current thread for a specified interval. VOID Sleep(    DWORD dwMilliseconds  // sleep time in milliseconds 
   );
The GetTickCount function retrieves the number of milliseconds that have elapsed since Windows was started. DWORD GetTickCount(VOID)
 ParametersThis function has no parameters.

Answer 2

谢谢，但我想在循环里使用，就是每当运行到那里就等待一短时间
而使用sleep会先等，然后显示所有循环的结果，不知道为什么GetTickCount不知该如何应用？

Answer 3

delphi 深度历险这本书里有。。

Answer 4

var dt: TDateTime;
begin
  dt := now;
  repeat
    application.processmessage;
  until (now - dt) * 86400 > N;
//N以秒为单位
end;