Delphi 高精度計時方法

bestlong

1. //取毫秒級時間精度(方法一)：
   
2. var
   
3.   t1, t2: int64;
   
4.   r1: int64;
   
5. begin
   
6.   t1 := GetTickCount; //獲取開始計數 WINDOWS API
   
7.   Sleep(1000); {do...} //執行要計時的代碼
   
8.   t2 := GetTickCount; //獲取结束計數值
   
9.   r1 := t2 - t1; //取得計時時間，單位毫秒(ms)
   
10.   ShowMessage(inttostr(r1));
    
11. end;
    
12. 
    
13. //取毫秒級時間精度(方法二)：
    
14. //use DateUtils; //引用DateUtils單位
    
15. var
    
16.   t1, t2: TDatetime;
    
17.   r1: int64;
    
18. begin
    
19.   t1 := now(); //獲取開始計時時間
    
20.   Sleep(1000); {do...}//執行要計時的代碼
    
21.   t2 := now();//獲取结束計時時間
    
22.   r1 := SecondsBetween(t2, t1); //取得計時時間，單位秒(s)
    
23.   r1 := MilliSecondsBetween(t2, t1); //取得計時時間，單位毫秒(ms)
    
24.   ShowMessage(inttostr(r1));
    
25. end;
    
26. 
    
27. //注：以上兩種方式經本人测試好像只能產生0.01秒的計時精度
    
28. 
    
29. //取系统級時間精度：
    
30. var
    
31.   c1:int64;
    
32.   t1,t2:int64;
    
33.   r1:double;
    
34. begin
    
35.   QueryPerformanceFrequency(c1); //WINDOWS API 返回計數频率(Intel86:1193180)(獲得系统的高性能頻率計數器在一毫秒内的震動次數)
    
36.   QueryPerformanceCounter(t1); //WINDOWS API 獲取開始計數值
    
37.   Sleep(1000); {do...}//執行要計時的代碼
    
38.   QueryPerformanceCounter(t2); //獲取结束計數值
    
39.   r1 := (t2 - t1) / c1; //取得計時時間，單位秒(s)
    
40.   r1 := (t2 - t1) / c1 * 1000; //取得計時時間，單位毫秒(ms)
    
41.   r1 := (t2 - t1) / c1 * 1000000; //取得計時時間，單位微秒
    
42.   ShowMessage(FloatToStr(r1));
    
43. end;

複製代碼