delphi - 如何计算函数的运行时间？

Question

我想知道如何计算德尔福函数消耗的时间。

然后我想显示使用时间并将其与另一个功能或组件进行比较，以便了解更快的功能。

Answer 1

您可以使用系统的高分辨率性能计数器TStopwatch从单元中测量经过的时间。System.Diagnostics

var
  Stopwatch: TStopwatch;
  Elapsed: TTimeSpan;
....
Stopwatch := TStopwatch.StartNew;
DoSomething;
Elapsed := Stopwatch.Elapsed;

要读取以秒为单位的时间值，例如，从时间跨度读取，请执行以下操作：

var
  Seconds: Double;
....
Seconds := Elapsed.TotalSeconds;

Answer 2

您可以使用QueryPerformanceCounter和QueryPerformanceFrequency功能：

var
  c1, c2, f: Int64;
begin
  QueryPerformanceFrequency(f);
  QueryPerformanceCounter(c1);
  DoSomething;
  QueryPerformanceCounter(c2);

  // Now (c2-c1)/f is the duration in secs of DoSomething

Answer 3

为了有更多解决问题的可能性，您还可以使用System.Classes.TThread.GetTickCount获取当前时间（以毫秒为单位）在您的方法之前启动您的计时器，然后在您的方法之后再次启动。这两者之间的差异显然是以毫秒为单位的经过时间，您可以将其转换为小时、秒等。

话虽如此，David Heffernan 的提议TStopwatch更优雅（也更精确？）。

Answer 4

VAR iFrequency, iTimerStart, iTimerEnd: Int64;

procedure TimerStart;
begin
  if NOT QueryPerformanceFrequency(iFrequency)
  then MesajWarning('High resolution timer not availalbe!');
  WinApi.Windows.QueryPerformanceCounter(iTimerStart);
end;


function TimerElapsed: Double; { In miliseconds }
begin
  QueryPerformanceCounter(iTimerEnd);
  Result:= 1000 * ((iTimerEnd - iTimerStart) / ifrequency);
end;


function TimerElapsedS: string;       { In seconds/miliseconds }
begin
 if TimerElapsed < 1000
 then Result:= Real2Str(TimerElapsed, 2)+ ' ms'
 else Result:= Real2Str(TimerElapsed / 1000, 2)+ ' s';
end;