デルファイは、正確なタイミングタイマーTStopwatchを使用しています

たSystem.Diagnostics参照部

属性：

　　現在のインスタンスの合計実行時間の測定結果を得る経過。
　　合計実行時間ElapsedMillisecondsは（ミリ秒単位）は、本実施例の測定結果を得ます。
　　合計実行時間ElapsedTicksは、（タイマーチックで表される）現在のインスタンスの測定結果を得ます。
　　指標の値があれば実行されているタイマーストップウォッチを取得IsRunning。

方法

　　GetTimestampは最小時間にタイマー機構におけるユニットの現在の数を得ます。
　　リセット停止時間間隔測定、及び操作時間がゼロにリセットされます。
　　再起動停止時間間隔測定が、実行時間をゼロにリセットし、計時動作を開始します。
　　開始または動作時間に一定の時間間隔を測定するために、継続して起動します。
　　ストップウォッチStartNew新しいインスタンスをゼロに、実行時のプロパティを初期化され、その後、動作時間の計測を開始。
　　停止停止は、実行時の時間間隔を測定します

 

例：

1  // / <概要> 
2  // /测试TStopwatch 
3  // / </要約> 
4  // /ます。<param name = "送信者"> </ PARAM> 
5  手順TForm1.btn1Click（送信者：TObjectを）。
6  VAR 
7    タイマー：TStopwatch。
8    I、N：Int64型。
9    TT：Int64型。
10は 開始
11    = TStopwatch：タイマーを。作成します。
12    // /开始计时
13    timer.Start。
14    N：= 0 ;
15    のための I：= 0  に 100000000は ない
16    始まる
17。     社は、（N）であり、
 18で   終わり;
 19。   // /終了タイマ
20は   Timer.stop;
 21である   // 数ミリ秒の/取得間隔
22は、    TT = timer.ElapsedMilliseconds;   // 408 
23れる エンド。