教程-在Delphi中怎么查看是否有内存泄漏(Delphi2007)+WIN7

Posted 2020-09-02 疯狂delphi

相关资料：
1.http://bbs.csdn.net/topics/390630932?page=1

PS:
1.本实例D2007及以上版本支持。
2.检测内存工具 EurekaLog fastmm

实例代码：
Project1.dpr:

 1 program Project1;
 2 
 3 uses
 4   Forms,
 5   Unit1 in ‘Unit1.pas‘ {Form1};
 6 
 7 {$R *.res}
 8 
 9 begin
10   Application.Initialize;
11   ReportMemoryLeaksOnShutdown := True; //加入该行，在程序运行并关闭后会提示你什么对象在哪里泄露了
12   Application.MainFormOnTaskbar := True;
13   Application.CreateForm(TForm1, Form1);
14   Application.Run;
15 end.

Unit1.pas:

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 7   Dialogs, StdCtrls;
 8 
 9 type
10   TForm1 = class(TForm)
11     Button1: TButton;
12     procedure Button1Click(Sender: TObject);
13   private
14     { Private declarations }
15   public
16     { Public declarations }
17   end;
18 
19 var
20   Form1: TForm1;
21 
22 implementation
23 
24 {$R *.dfm}
25 
26 procedure TForm1.Button1Click(Sender: TObject);
27 var
28   oForm2: TForm1;
29 begin
30   oForm2 := TForm1.Create(nil);
31   try   
32   finally
33     //oForm2.Free;
34   end;
35 end;
36 
37 end.

 

运行效果:
---------------------------
Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:

1 - 12 bytes: Unknown x 3
13 - 20 bytes: TList x 4, String x 2, Unknown x 3
21 - 28 bytes: TIconImage x 1, TPen x 1, TBrush x 3
29 - 36 bytes: TPadding x 2, TMargins x 2, TSizeConstraints x 2, TFont x 3, Unknown x 2
37 - 44 bytes: TGlassFrame x 1
45 - 52 bytes: TIcon x 1
61 - 68 bytes: Unknown x 1
69 - 76 bytes: TControlScrollBar x 2
93 - 100 bytes: TControlCanvas x 1
573 - 620 bytes: TButton x 1
797 - 876 bytes: TForm1 x 1

---------------------------
确定
---------------------------