★如何让程序等待？

Question

★如何让程序等待？
我的目的是读取某一行脚本（一个纯文本文件）后启动计时器，每隔一段时间（比如1秒）执行一次，得到需要的结果跳出，否则继续，超过限定时间后继续读取下一行脚本。我不知该用什么方法来实现。想用timer控件，但把interval设成1000，如何让程序等待timer不停地重复呢？把interval设成总时间又无法实现每1秒查询一次。使用GetTickCount()会使程序不再响应外界控制。
想了半天也没想出个方法来，哪位帮帮我？

Answer 1

用两个timer控件呀!一个负责"每隔一段时间（比如1秒）执行一次"
另一个把interval设成总时间,负责到最后把第一个timer设为禁止.

Answer 2

Sleep(1000);      //停顿1秒

Answer 3

sleep（）函数的作用就是挂起程序，等待一段时间继续执行。楼主可试试

Answer 4

sleep（）函数，但要在uses 中加入windows

Answer 5

使用GetTickCount()时转发系统的消息不会影响程序响应外界的事件

Answer 6

SLEEP（）或用TIMER控件，两个随你喜欢那个就用那个

Answer 7

while (1) do
begin
  if 读脚本成功 then
    break
  else if 超过总事件 then
    break
  else
    for i:=1 to 100 do
    begin
     sleep(10);
     application.processmessage;
    end;
end