Delphi：发生意外的内存泄漏

在 Delphi 中，我已配置为报告内存泄漏：

  {$IFDEF Debug}
  ReportMemoryLeaksOnShutdown := true;
  {$ENDIF}

After exiting the program I get the following message:

我的程序非常大，我不知道如何找到我创建但未释放的 TStringList。
不幸的是Delphi没有垃圾收集器......

如果我在我的项目中搜索TStringList我发现大约有 500 次出现。检查所有这些没有任何意义。

如何找到我忘记释放的变量？

以下软件有助于查找内存泄漏：
https://github.com/shadow-cs/delphi-leakcheck

以下是要遵循的步骤：

1. cd C:\Delphi
git clone https://github.com/shadow-cs/delphi-leakcheck
2. 添加路径C:\Delphi\delphi-leakcheck\Source到您的 Delphi 库路径（工具/选项/...）
3. 在你的开头添加以下代码MyProject.dpr file:

Code:

uses
  // LeakCheck, // Does not need do be defined here (LeakCheck.Report will do it) unless you want to reference it from the DPR
  LeakCheck.Report, // Me first! - I don't have any dependencies but LeakCheck so I finalize after all other units
  LeakCheck.Setup.Trace, // (Optional) Then me - Run setup to configure stack tracing for us
  LeakCheck.Report.FileLog, // Then me - I'm the one that pulls some dependencies and have all the functionality

4. 编译并启动你的程序
5. 定期退出程序
   退出可能需要长达几分钟（请耐心等待......）
6. You will get a message box that tells you that a file C:\Delphi\MyProject\MyProject.log was created.
   This log file contains the name of the function (and its callstack) where the variable was created. It's not the name of the unfreed variable, but at least the function and line number inside this function.
   
   
   

这种方法在几分钟内解决了我的问题。
奖励：该软件完全免费 - 您无需为其支付任何费用