Delphi使用TStopwatch计时器精确计时【转】

引用 System.Diagnostics 单元

属性：

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

方法

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

/// <summary>
/// 测试 TStopwatch
/// </summary>
/// <param name="Sender"></param>
procedure TForm1.btn1Click(Sender: TObject);
var
  timer: TStopwatch;
  I, n: Int64;
  tt: Int64;
begin
  timer := TStopwatch.Create;
  ///开始计时
  timer.Start;
  n := 0;
  for I := 0 to 100000000 do
  begin
    Inc(n);
  end;
  ///结束计时
  timer.Stop;
  ///获取毫秒数的间隔
  tt := timer.ElapsedMilliseconds;  //408
end;

感谢转自https://www.cnblogs.com/Thenext/p/12628897.html