Delphi使用TStopwatch计时器精确计时

Posted 2020-11-27 thenext

引用 System.Diagnostics 单元

属性：

　　Elapsed 　　　　　　获取当前实例测量得出的总运行时间。
　　ElapsedMilliseconds  获取当前实例测量得出的总运行时间（以毫秒为单位）。
　　ElapsedTicks 　　　  获取当前实例测量得出的总运行时间（用计时器计时周期表示）。
　　IsRunning 　　　　   获取一个指示 Stopwatch 计时器是否在运行的值。

方法

　　GetTimestamp 　　获取计时器机制中的当前最小时间单位数。
　　Reset 　　　　　　 停止时间间隔测量，并将运行时间重置为零。
　　Restart 　　　　　 停止时间间隔测量，将运行时间重置为零，然后开始测量运行时间。
　　Start 　　　　　　  开始或继续测量某个时间间隔的运行时间。
　　StartNew 　　　　  对新的 Stopwatch 实例进行初始化，将运行时间属性设置为零，然后开始测量运行时间。
　　Stop 　　　　　　  停止测量某个时间间隔的运行时间

 

示例:

 1 /// <summary>
 2 /// 测试 TStopwatch
 3 /// </summary>
 4 /// <param name="Sender"></param>
 5 procedure TForm1.btn1Click(Sender: TObject);
 6 var
 7   timer: TStopwatch;
 8   I, n: Int64;
 9   tt: Int64;
10 begin
11   timer := TStopwatch.Create;
12   ///开始计时
13   timer.Start;
14   n := 0;
15   for I := 0 to 100000000 do
16   begin
17     Inc(n);
18   end;
19   ///结束计时
20   timer.Stop;
21   ///获取毫秒数的间隔
22   tt := timer.ElapsedMilliseconds;  //408
23 end;