極速下載站 —— 提供優(yōu)質(zhì)軟件下載服務(wù),感受全新的極速下載體驗(yàn)!

最近更新 | 軟件專(zhuān)題 | 軟件分類(lèi) | 軟件排行

您的位置:極速下載站資訊首頁(yè)軟件教程軟件資訊 → 軟件Delphi的高精度計(jì)時(shí)方法代碼介紹

軟件Delphi的高精度計(jì)時(shí)方法代碼介紹

時(shí)間:2019-08-24 12:13:21  作者:Bill  瀏覽量:55

Delphi高精度計(jì)時(shí)方法

核心提示:DELPHI高精度計(jì)時(shí)方法,一下代碼分享個(gè)大家。

//取毫秒級(jí)時(shí)間精度(方法一):

var

t1,t2:int64;

r1:int64;

begin

t1:=GetTickCount;//獲取開(kāi)始計(jì)數(shù) WINDOWS API

sleep(1000);{do...}//執(zhí)行要計(jì)時(shí)的代碼

t2:=GetTickCount;//獲取結(jié)束計(jì)數(shù)值

r1:=t2-t1;//取得計(jì)時(shí)時(shí)間,Y\`國(guó)4~絡(luò)(}.u_%t"hV單位毫秒(ms)

showmessage(inttostr(r1));

end;

圖:免費(fèi)Delphi高精度計(jì)時(shí)方法代碼教程

Delphi高精度計(jì)時(shí)方法圖一

//取毫秒級(jí)時(shí)間精度(方法二):

//use DateUtils;//引用DateUtils單位

var

t1,t2:tdatetime;

r1:int64;

begin

t1:=now();//獲取開(kāi)始計(jì)時(shí)時(shí)間

sleep(1000);{do...}//執(zhí)行要計(jì)時(shí)的代碼

t2:=now();//獲取結(jié)束計(jì)時(shí)時(shí)間

r1:=SecondsBetween(t2,t1);//取得計(jì)時(shí)時(shí)間,D6k=+W的TsoUbP育_II單位秒(s)

r1:=MilliSecondsBetween(t2,t1);//取得計(jì)時(shí)時(shí)間,

fTVGgU8E36

單位毫秒(ms)

showmessage(inttostr(r1));

end;

//注:以上兩種方式經(jīng)本人測(cè)試好像只能產(chǎn)生0.01秒的計(jì)時(shí)精度

//取系統(tǒng)級(jí)時(shí)間精度:

var

c1:int64;

t1,t2:int64;

r1:double;

begin

圖:免費(fèi)Delphi高精度計(jì)時(shí)方法代碼教程

Delphi高精度計(jì)時(shí)方法圖二

QueryPerformanceFrequency(c1);//WINDOWS API 返回計(jì)數(shù)頻率(Intel86:1193180)(獲得系統(tǒng)的高性能頻率計(jì)數(shù)器在一毫秒內(nèi)的震動(dòng)次數(shù))

QueryPerformanceCounter(t1);//WINDOWS API 獲取開(kāi)始計(jì)數(shù)值

sleep(1000);{do...}//執(zhí)行要計(jì)時(shí)的代碼

QueryPerformanceCounter(t2);//獲取結(jié)束計(jì)數(shù)值

r1:=(t2-t1)/c1;//取得計(jì)時(shí)時(shí)間,

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

j5^國(guó)GZ,)中1a6t."1)Ti

x@\t)ac提W教

YjTt]$1UCqS'E)網(wǎng)7g單位秒(s)

r1:=(t2-t1)/c1*1000;//取得計(jì)時(shí)時(shí)間,單位毫秒(ms)

r1:=(t2-t1)/c1*1000000;//取得計(jì)時(shí)時(shí)間,單位微秒

showmessage(floattostr(r1));

end;

圖:免費(fèi)Delphi高精度計(jì)時(shí)方法代碼教程

Delphi高精度計(jì)時(shí)方法圖三

相關(guān)資訊

相關(guān)軟件

軟件資訊排行
最新軟件資訊
軟件教程分類(lèi)

更多常用電腦軟件