Delphi高精度计时办法-Delphi-优质IT资源分享社区

admin
管理员
管理员
  • UID1
  • 粉丝27
  • 关注4
  • 发帖数581
  • 社区居民
  • 忠实会员
  • 原创写手
阅读:189回复:0

  Delphi高精度计时办法

楼主#
更多 发布于:2016-06-05 22:26

//取毫秒级

时间精度(

过程一):

var

t1,t2:int64;

Windows 7体系减肥实战大型笔直网站的2014年SEO的剖析

圣诞倒计时 如何巧用闪光灯拍好夜景人像实例讲解巧用延时自拍:奇妙的设想

r1:int64;

begin

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

菜鸟进阶记 风景摄影窍门共享专属创造 教你如何把风景人像拍的不雷同

Win体系中如何运用U盘分区网站一年内baidu权重抵达6是怎么做到的

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;

//取毫秒级

时间精度(

过程一):

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;

优质IT资源分享社区为你提供此文。

本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。

Delphi教程视频

优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客