关于QuickReport这个鸟控件!(中秋不忘QuickReport!) 你在动态数组的处理上有问题,因为对象已经不存在,不能进行Free操作。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Form1是整个工程的主体Form1OnDestroy事件发生的时候已到程序的尾声所有的组件已经不存在了,都已从内存中Destroyed我想应该是错在这里! 1、不能进行Free操作是对的,但是我不知这个对象是在什么时候被释放 的,从跟踪来看对象没有释放干净!2、TO:Whitehare,我不做OnDestroy,即不手动Free,错误依旧! with TFView.Create(self) do try QuickRep1.Preview; finally free; end; 好象调用free函数,资源总是释放不干净!!我以前跟踪过,不知道什么原因 To:zcw 错不在"QuickRep1.Preview"!而在整个程序Close的时候! procedure TForm1.OnMyPreview(Sender: TObject); var ff : TFView; begin ff := TFView.Create(self); try ff.QRPreview1.QRPrinter := TQRPrinter(Sender); ff.ShowModal; finally Application.ProcessMessages //<---------------(**) ff.Free; end; end; to: peng01234好象没用的! Delphi XE2 之 FireMonkey 的问题 进来看 Delphi7有没有能够加载多个图片的集合控件? 如何实现公用查找函数内存共享? ADOQuery onCustomDrawSubItem功能是什麼 比较两Edit框内的两字符的ASCII之大小? 新手上路,请多关照! 急 在线等待 最热的英文Delphi论坛是哪个? 急,关于DELPHI报表问题? 如何在安装程序中安装驱动程序 TQuery的问题
的,从跟踪来看对象没有释放干净!
2、TO:Whitehare,我不做OnDestroy,即不手动Free,错误依旧!
try
QuickRep1.Preview;
finally
free;
end;
错不在"QuickRep1.Preview"!而在整个程序Close的时候!
var
ff : TFView;
begin
ff := TFView.Create(self);
try
ff.QRPreview1.QRPrinter := TQRPrinter(Sender);
ff.ShowModal;
finally
Application.ProcessMessages //<---------------(**)
ff.Free;
end;
end;
好象没用的!