Delphi高精度计时方法

　　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
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有