delphi - 为什么在执行我的应用程序的第一行代码之前调用 TObject.Free？

Question

我们正试图弄清楚我们的软件中是否存在内存泄漏。所以，我一直在使用各种工具和程序来帮助我找到可能的内存泄漏。我使用的软件之一是 AQTime。由于它与 Delphi XE 一起提供，它只是一个演示。所以，我真的无法从中获得任何有用的信息。然后，我决定使用免费软件 MemProof。到目前为止，它向我展示了我们软件的许多需要注意的问题。其中之一是错误。

一旦我通过 MemProof 启动我的程序，它就会列出 2 个错误，即试图从单元文件 system.pas 中销毁不存在的对象。因此，当我实际上在 TObject.Free 过程中放置​​一个断点时，它甚至在我的程序一直启动之前就中断了。通过 system.pas 中的 Free 过程，我发现 TIconimage 正在尝试破坏或释放自身。换句话说，在实际启动之前，不会从我的程序中调用免费过程。

这是实际的免费程序:

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

在那次观察之后，我删除了断点，让程序一直运行。我的程序主窗口弹出准备用户输入。但是，我还发现如果我的程序窗口的任何部分显示在屏幕上，就会不停地调用 TObject.Free 过程。我完全不明白。这是为什么？谁能解释一下？当 TForm 显示在屏幕上时，程序不断被调用，TForm 与任何形状或形式的 TObject.Free 有什么关系？

提前致谢。

Answer 1

关于为什么TObject.Free执行很多，每次销毁一个对象时，任何对象都会调用该方法。所有的类都派生自 TObject，它是共同的祖先，所以 Delphi 程序中的几乎任何 Action 都涉及大量的对象创建/销毁对，因此会命中 TObject.Free .

关于内存泄漏的检测，您需要在 Delphi 中内置来解决这个问题。 FastMM 内存管理器可以在“报告内存泄漏”模式下运行，它会为您提供任何内存泄漏的诊断负载。

考虑以下简单的程序:

program Leaker;
begin
  ReportMemoryLeaksOnShutdown := True;
  TObject.Create;
end.

这将产生以下输出:



您只需设置 ReportMemoryLeaksOnShutdown在您的应用程序中的某处设置为 True(.dpr 文件的开头与任何地方一样好)。

如果您希望在报告中获得更多信息，您可以下载 full version of FastMM并将其配置为您心中的内容。

然后你会得到这样的输出:

A memory block has been leaked. The size is: 84

This block was allocated by thread 0x1304, and the stack trace (return addresses) at the time was:
40455E [System][System.@GetMem]
405A2F [System][System.TObject.NewInstance]
40602E [System][System.@ClassCreate]
4474C2 [Classes][Classes.TStringList.Create]
C275A3 [Main.pas][Main][Main.TMainForm.CreateAuxiliaryForms][997]
C84C8A [OrcaFlex.dpr][OrcaFlex][OrcaFlex.OrcaFlex][351]
75E633CA [BaseThreadInitThunk]
77519ED2 [Unknown function at RtlInitializeExceptionChain]
77519EA5 [Unknown function at RtlInitializeExceptionChain]

The block is currently used for an object of class: TStringList

这真是太棒了。它告诉我泄漏的内存是在 Main.pas 第 997 行分配的，而这正是我故意泄漏的地方!