延时函数

有谁知道delphi的延时函数。谢谢！ 问题点数：20、回复次数：7Top

1 楼hammer_shi（dmresearch）回复于 2002-06-18 18:47:49 得分 20

sleep()Top

2 楼wzsswz（岌岌荆棘）回复于 2002-06-18 18:50:38 得分 0

sleep(5000)   //延时5000msTop

3 楼wzrlover（无语无声无欲无泪吾独行!）回复于 2002-06-18 19:12:59 得分 0

var   lStart:   DWord;  
  begin  
        lStart   :=   GetTickCount;  
        while   GetTickCount   -   lStart   <=   lMilliSeconds   do  
  endTop

4 楼surfguy（〓天道酬勤〓）回复于 2002-06-18 19:19:38 得分 0

同意wzsswz(岌岌荆棘)的。Top

5 楼johnsonrao（johnson）回复于 2002-06-18 19:24:14 得分 0

来晚了，一楼二楼的都对！Top

6 楼Dephiuser（从头再来）回复于 2002-06-18 19:35:07 得分 0

来晚了，大家都对，高手多呀！！！哈哈  
  sheep(3000)；  
  代表延时3秒钟。  
  wzrlover的程序也是对的Top

7 楼loskill（）回复于 2002-06-23 14:29:28 得分 0

谢谢，有兴趣的话，看看我的第二个问题Top

相关问题

• 函数
• lstart
• 延时函数
• gettickcount

• 帖主：loskill
• hammer_shi

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载