关于延迟时间的一点智慧

关于延迟时间的一点智慧

一般的做法:
 Sleep(2000);  // 延迟2秒
此种做法有俩个弊端:
(1)如果实际需要的延迟时间不需要2秒,则明显有延迟时间浪费;
(2)如果实际需要的延迟时间超过2秒,则很可能发生不可预料的错误。

改进的做法:
      repeat
        Sleep(10);
      until
        FileExists('c:\temp\invoice.pdf')=True;
优点:将一次大的延迟时间分割成小的,一旦条件成立就退出了延迟,
使得延迟的时间同实际需要的几乎一样。也杜绝了前面第二种情况错误的发生。

posted @ 2012-07-18 16:06  delphi中间件  阅读(834)  评论(0编辑  收藏  举报