检测Delphi程序的内存泄漏

检测Delphi程序的内存泄漏

 http://user.qzone.qq.com/278789991/blog/1452587950

 

检测Delphi程序的内存泄漏

 

 

 

在Project source中加入如下第一条语句。

ReportMemoryLeaksOnShutdown := DebugHook <> 0;

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

 

为了测试效果，在你的主窗体onCreate事件中写一个引起泄漏的Test Case。

 

var

sl : TStringList;

begin

sl := TStringList.Create;

sl.Add('Memory leak!') ;

end;

 

在DEBUG状态下启动程序，然后退出程序你应该能看到一个内存泄漏提示对话框。