怎样执行了一个方法后，令程序先等待一段时间，再执行下一个方法

Question

由于我的程序中，要先执行一个比较耗时的方法,然后这个方法执行完毕后，才能执行下一个方法,有什么办法令到程序在执行了第一个方法后，自动等待一段时间，再去执行下一个方法呢？谢谢。

Answer 1

你那个耗时的方法可以是一个函数，处理完返回一个状态，当你调用这个耗时的函数时，调用处等待它的返回值，再往下执行。
如果采用线程的方式，那就等待线程结束再 continue...........

Answer 2

做个不做任何事的for循环，建议使用sleep（）

Answer 3

如果不需要在延时中相应用户输入, 用sleep最方便, 否则:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure SysDelay(aMs: Longint);
var
  TickCount       : LongInt;
begin
  TickCount:=GetTickCount;
  while GetTickCount - TickCount < aMs do Application.ProcessMessages;
end;sysdelay(3000)//延时3秒