极速下载站 —— 提供优质软件下载服务,感受全新的极速下载体验!

最近更新 | 软件专题 | 软件分类 | 软件排行

您的位置:极速下载站资讯首页软件教程软件资讯 → 软件Delphi的高精度计时方法代码介绍

软件Delphi的高精度计时方法代码介绍

时间:2019-08-24 12:13:21  作者:Bill  浏览量:55

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;

图:免费Delphi高精度计时方法代码教程

Delphi高精度计时方法图一

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

//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

图:免费Delphi高精度计时方法代码教程

Delphi高精度计时方法图二

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;

图:免费Delphi高精度计时方法代码教程

Delphi高精度计时方法图三

相关资讯

相关软件