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

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

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

实例代码：
Project1.dpr:

 program Project1;

 uses
   Forms,
   Unit1 in 'Unit1.pas' {Form1};

 {$R *.res}

 begin
   Application.Initialize;
   ReportMemoryLeaksOnShutdown := True; //加入该行，在程序运行并关闭后会提示你什么对象在哪里泄露了
   Application.MainFormOnTaskbar := True;
   Application.CreateForm(TForm1, Form1);
   Application.Run;
 end.

Unit1.pas:

 unit Unit1;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;

 type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.Button1Click(Sender: TObject);
 var
   oForm2: TForm1;
 begin
   oForm2 := TForm1.Create(nil);
   try
   finally
     //oForm2.Free;
   end;
 end;

 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

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