本文整理自网络,侵删。
delphi关于延迟时间的一点智慧
一般的做法:
Sleep(2000); // 延迟2秒
此种做法有俩个弊端:
(1)如果实际需要的延迟时间不需要2秒,则明显有延迟时间浪费;
(2)如果实际需要的延迟时间超过2秒,则很可能发生不可预料的错误。
改进的做法:
repeat
Sleep(10);
until
FileExists('c:\temp\invoice.pdf')=True;
优点:将一次大的延迟时间分割成小的,一旦条件成立就退出了延迟,
使得延迟的时间同实际需要的几乎一样。也杜绝了前面第二种情况错误的发生。
相关阅读 >>
Delphi: ttreeview 中禁止双击事件展开或关闭节点
Delphi用mapfileandchecksum 函数检测 exe 或 dll 是否被修改
更多相关阅读请进入《Delphi》频道 >>