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