Delphi高精度计时方法

2008-02-23 07:18:29来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  Delphi高精度计时方法,取毫秒级时间精度(方法一):
  




  //取毫秒级时间精度(方法一):
  var
  t1,t2:int64;
  r1:int64;
  begin
  t1:=GetTickCount;//获取开始计数 Windows API
  sleep(1000);{do...}//执行要计时的代码
  t2:=GetTickCount;//获取结束计数值
  r1:=t2-t1;//取得计时时间,单位毫秒(ms)
  showmessage(inttostr(r1));
  end;


  //取毫秒级时间精度(方法二):
  //use DateUtils;//引用DateUtils单位
  var
  t1,t2:tdatetime;
  r1:int64;
  begin
  t1:=now();//获取开始计时时间
  sleep(1000);{do...}//执行要计时的代码
  t2:=now();//获取结束计时时间
  r1:=SecondsBetween(t2,t1);//取得计时时间,单位秒(s)
  r1:=MilliSecondsBetween(t2,t1);//取得计时时间,单位毫秒(ms)
  showmessage(inttostr(r1));
  end;

  //注:以上两种方式经本人测试好像只能产生0.01秒的计时精度

  //取系统级时间精度:
  var
  c1:int64;
  t1,t2:int64;
  r1:double;
  begin
  QueryPerformanceFrequency(c1);//WINDOWS API 返回计数频率(Intel86:1193180)(获得系统的高性能频率计数器在一毫秒内的震动次数)
  QueryPerformanceCounter(t1);//WINDOWS API 获取开始计数值
  sleep(1000);{do...}//执行要计时的代码
  QueryPerformanceCounter(t2);//获取结束计数值
  r1:=(t2-t1)/c1;//取得计时时间,单位秒(s)
  r1:=(t2-t1)/c1*1000;//取得计时时间,单位毫秒(ms)
  r1:=(t2-t1)/c1*1000000;//取得计时时间,单位微秒
  showmessage(floattostr(r1));
  end;



上一篇: Delphi中实现DBGrid列宽度自动调整
下一篇: 想成高手吗?快来学Delphi快捷键

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:图解Delphi 8 Eco 开发实战

下一篇:Delphi中实现DBGrid列宽度自动调整