DELPHI高精度计时方法

　2006-02-04 13:56:54　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劕鎼痪褔鏌曟繝蹇曠窗闁煎壊浜滈—鍐偓锝庡墮娴犙勭箾閸喎鐏ユい鏇樺劦椤㈡瑩鎮℃惔銇帮拷

核心提示： //取毫秒级时间精度(方法一)：var t1,t2:int64; r1:int64;begin t1:=GetTickCount;//获取开始计数 WINDOWS API sleep(1000);{do...}//执行要计时的代码 t2:=GetTickCount;//获取结束计数值 r1:=t2-t1;

//取毫秒级时间精度(方法一)：
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;