Delphi中未释放TStringList致内存泄漏，如何定位未释放变量？

方法1：启用内存泄漏报告的详细调用栈 #

默认的ReportMemoryLeaksOnShutdown提示其实包含泄漏对象的创建调用栈，只是可能未开启完整显示：

• 打开Delphi IDE，依次进入工具->选项->调试->历史记录和调用栈，勾选启用栈回溯和显示完整调用栈。
• 重新以Debug模式运行程序，触发泄漏后，内存泄漏报告里会展示该TStringList创建时的调用栈，顺着栈信息就能直接定位到创建它的代码位置。

方法2：自定义TStringList追踪创建/销毁行为 #

通过继承TStringList添加日志追踪，精准记录每个实例的生命周期：

type
  TTrackedStringList = class(TStringList)
  public
    constructor Create; override;
    destructor Destroy; override;
  end;

constructor TTrackedStringList.Create;
begin
  inherited;
  {$IFDEF Debug}
  // 将创建位置输出到IDE事件日志
  OutputDebugString(PChar('TStringList 创建于: ' + BackTraceStrFunc(ReturnAddress)));
  {$ENDIF}
end;

destructor TTrackedStringList.Destroy;
begin
  {$IFDEF Debug}
  OutputDebugString(PChar('TStringList 销毁于: ' + BackTraceStrFunc(ReturnAddress)));
  {$ENDIF}
  inherited;
end;

批量替换项目中所有TStringList为TTrackedStringList，运行程序后查看IDE的事件日志（视图->调试窗口->事件日志），对比创建和销毁记录，没有对应销毁日志的就是泄漏对象，根据日志中的地址可直接定位到创建代码。

方法3：使用Delphi自带的内存分析工具 #

Delphi企业版自带的AQTime（部分版本集成在IDE内）可直接做精准泄漏检测：

• 打开AQTime，选择Memory and Resource Leaks分析类型。
• 运行程序并完成正常操作后退出，AQTime会生成详细报告，包含每个泄漏对象的创建位置、完整调用栈，直接定位到代码行。

方法4：批量检查局部TStringList的释放逻辑 #

对于局部使用的TStringList，强制用try...finally包裹确保释放：

var
  SL: TStringList;
begin
  SL := TStringList.Create;
  try
    // 业务代码
  finally
    SL.Free;
  end;
end;

用IDE的查找替换功能，批量检索项目中TStringList.Create的代码，检查是否都用try...finally做了释放包裹。

内容的提问来源于stack exchange，提问作者Michael Hutter