Delphi高精度计时方法

【文件属性】：

文件名称：Delphi高精度计时方法

文件大小：2KB

文件格式：TXT

更新时间：2016-05-18 15:57:51

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;