您的位置: 首页 > 软件教程 > Delphi教程专题 > Delphi高精度计时方法

Delphi高精度计时方法

9.0分
出处:网络 时间:2011-08-05

您可能感兴趣的话题: Delphi  

核心提示:DELPHI高精度计时方法,一下代码分享个大家。

  //取毫秒级时间精度(方法一):

  var

   t1,t2:int64;

   r1:int64;

  begin

   t1:=GetTickCount;//获取开始计数 WINDOWS API

   sleep(1000);{do...}//执行要计时的代码

  t2:=GetTickCount;//获取结束计数值

   r1:=t2-t1;//取得计时时间,Y\`国4~络(}.u_%t"hV单位毫秒(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);//取得计时时间,D6k=+W的TsoUbP育_II单位秒(s)

   r1:=MilliSecondsBetween(t2,t1);//取得计时时间,

  fTVGgU8E36

  单位毫秒(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;//取得计时时间,

  L`:(Y\O件}\^k(育*软{Ux

  j5^国GZ,)中1a6t."1)Ti

  x@\t)ac提W教

  YjTt]$1UCqS'E)网7g单位秒(s)

   r1:=(t2-t1)/c1*1000;//取得计时时间,单位毫秒(ms)

   r1:=(t2-t1)/c1*1000000;//取得计时时间,单位微秒

   showmessage(floattostr(r1));

  end;

网友评论
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Visual Basic是一种由微软公司开发... [详细]
Oracle Database,又名Orac... [详细]
Visual Basic.NET是从 Vis... [详细]