[示例] 使用 TStopwatch 计时

使用 TStopwatch 计时

uses System.Diagnostics;

var t1: TStopwatch;
begin
  t1 := TStopwatch.StartNew; 
  // do something
  t1.Stop;

  Memo1.Lines.Add(Format('%d (msec)', [t1.ElapsedMilliseconds])); 
  Memo1.Lines.Add(t1.Elapsed); 
end;