QuickReport报表Prepare之后造成内存泄露问题的解决方法

在我们的项目开发中，经常用到QuickReport 报表，而且很多报表的页脚都要提示 “页码：1/3 ” 的信息， 为了得到总页码，我们要在报表Preview 之前加上Prepare ，才能得到总页码，但是会造成内存泄露，（在工程的单元前加FastMM4 可以获得内存泄露的信息） 这个问题一直都得不到很好的解决，经过在网上搜索，得到了解决，方法如下：

首先：在delphi 中将该报表设置成不自动创建，如下图： 

  

然后打开报表的代码如下编写即可： 

RepSGD := TRepSGD.Create(Application); try with RepSGD do begin Screen.Cursor := crHourGlass; labHint.Caption := ' 正在打开生产施工单，请稍候... ...'; if qry1.Active then qry1.close; qry1.Open; try Prepare; finally RepSGD.QRPrinter.Free; RepSGD.QRPrinter := nil; end; qlbPageTotal.Caption := ' / ' + inttostr(PageNumber); Screen.Cursor := crDefault; labHint.Caption := ' '; Preview; end; finally RepSGD.Free; end;