delphi - 使用 `TStopWatch` 而不使用 `free`

Question

我在 Delphi 10.2 Tokyo 中使用 TStopWatch 进行高精度计时。

本网站:https://www.thoughtco.com/accurately-measure-elapsed-time-1058453给出了以下示例:

 var
  sw : TStopWatch;
  elapsedMilliseconds : cardinal;
begin
  sw := TStopWatch.Create() ;
  try
    sw.Start;
    //TimeOutThisFunction()
    sw.Stop;
    elapsedMilliseconds := sw.ElapsedMilliseconds;
  finally
    sw.Free;
  end;
end;

显然，那里有一个错误，因为:

• StopWatch 不包含 Free
• Delphi 文档明确指出:

TStopwatch is not a class but still requires explicit initialization [using StartNew or Create methods].

这很令人困惑。我在函数中使用 TStopWatch，但没有使用 free。该函数可能会在每个 session 期间被调用多次(可能数百次，具体取决于使用情况)。这意味着将创建多个 TTopWatch 实例，但不会被释放。

是否有可能出现内存泄漏或其他并发症？如果答案是肯定的，我该怎么办？我是否必须为每个应用程序仅创建一个 TTopWatch 实例？或者我应该使用其他功能？还是别的什么？

Answer 1

链接的示例是基于类的 TStopWatch。

unit StopWatch;
interface
uses 
  Windows, SysUtils, DateUtils;

type 
  TStopWatch = class
  ...

它是在 Delphi 引入基于记录的 TStopWatch 之前发布的。

由于类变体在使用后需要调用Free，而基于记录的则不需要，因此这里不会产生困惑。

只需继续使用基于 Delphi 记录的 TStopWatch，无需在使用后释放它。

通常我使用以下模式:

var
  sw : TStopWatch;
begin
  sw := TStopWatch.StartNew;
  ... // Do something
  sw.Stop;
  // Read the timing
  WriteLn(sw.ElapsedMilliseconds);