如何正确释放 Delphi 表单

Question

尝试在完全调试模式下使用 FastMM 修复我的应用程序中的内存泄漏，报告了一些关于 TForm（后代）实例的泄漏。在检查并单步执行代码之后，我可以肯定地说这些表单是released 而不是freed。看起来 FastMM 在 Release 计划的实际释放发生之前正在检查泄漏。

MyForm: TForm;
MyForm := TForm.Create(nil);
...
MyForm.Release; // FastMM reports MyForm as a leak

我尝试释放它们，这些内存泄漏不再被报告，但有时，释放时发生访问冲突：

MyForm: TForm;
MyForm := TForm.Create(nil);
...
MyForm.Free; // // FastMM does not report MyForm as a leak, but sometimes an access violation is triggered

我尝试释放它们，然后立即调用 Application.ProcessMessages，据我所知，可以阅读 Zoë Peterson 在https://stackoverflow.com/a/917187/1465896 中的回答。我一定理解错了，因为它总是在 Application.ProcessMessages 中立即崩溃：

MyForm: TForm;
MyForm := TForm.Create(nil);
...
MyForm.Release; 
Application.ProcessMessages; // always triggers an access violation 

我不想将这些表单注册为预期的内存泄漏，因为它们包含更多的对象，这些对象会使内存泄漏日志文件变得混乱，从而更难找到更重要的泄漏。

所以我的问题是，如何正确释放 Delphi 表单，以便 FastMM 不会将其报告为泄漏？

根据要求，这是一个 SSCnCE（短、自包含、正确（不能按原样编译，因为我不知道如何发布项目），示例）：

文件FormRelease.dpr：

program FormRelease;

uses
  FastMM4 in 'FastMM4.pas',
  Vcl.Forms,
  MainForm_fm in 'MainForm_fm.pas' {MainForm},
  MyForm_fm in 'MyForm_fm.pas' {MyForm};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

文件 MainForm_fm.pas：

unit MainForm_fm;

interface

uses
  Vcl.Forms,
  MyForm_fm;

type
  TMainForm = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);

  private
    FMyForm: TMyForm;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FMyForm := TMyForm.Create(nil);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  FMyForm.Release;
end;

end.

文件 MyForm_fm.pas：

unit MyForm_fm;

interface

uses
  Vcl.Forms;

type
  TMyForm = class(TForm)
  end;

implementation

{$R *.dfm}

end.

文件 FormRelease_MemoryManager_EventLog.txt 的摘录，在启动程序并使用 alt-F4 停止它之后：

This application has leaked memory. The small block leaks are (excluding expected leaks registered by pointer):

13 - 20 bytes: TList x 1, Unknown x 1
21 - 36 bytes: TPen x 1, TMargins x 1, TPadding x 1, TIconImage x 1, TBrush x 2, TTouchManager x 1, TSizeConstraints x 1, UnicodeString x 1, Unknown x 3
37 - 52 bytes: TGlassFrame x 1, TFont x 2
53 - 68 bytes: TIcon x 1
69 - 84 bytes: TControlScrollBar x 2
101 - 116 bytes: TControlCanvas x 1
149 - 164 bytes: Unknown x 1
917 - 1012 bytes: TMyForm x 1

如果用FMyForm.Release发布的CM_RELEASE已经被处理，为什么还剩下TMyForm x 1？

Answer 1

这听起来像是两个不同的东西。

首先，您正在显式创建表单，因此您应该显式释放它。您不需要调用 Release，除非有特殊情况，例如从自己的事件处理程序中释放自己的表单。

MyForm: TForm;
...
MyForm := TForm.Create(nil);
try
  // Only reference MyForm in this block
finally
  MyForm.Free;
end;

其次，调用 Free 不会导致问题。我认为它揭示了它。如果我不得不猜测，访问冲突正在发生，因为 MyForm 或其组件之一在此块之外被引用。使用调试器找到这个引用并修复它。