本文整理自网络,侵删。
今天调试一个开源的例子程序,无意中发现一个IDE用来测试内存泄漏的语句。
不过应该是Delphi2006以后的版本才能使用。
实施方法方法非常简单,在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状态下启动程序,然后退出程序你应该能看到一个内存泄漏提示对话框。
相关阅读 >>
Delphi simple resource api replacement
Delphi application.title在win7下失效了?
Delphi android / ios应用程序中使用tgeocoder类进行反向地理编码(从位置信息中获取地址)
更多相关阅读请进入《Delphi》频道 >>