关于QuickReport这个鸟控件！(中秋不忘QuickReport!)

[liang_z]

各位大虾：
本小虾在用QuickReport做报表的时候遇到了一个问题，
望各位大虾各发高见！现象如下：
1、报表Form：TForm1，并设置MSSQL数据链接。
2、定制预览Form：TFView；
3、在Form1的Public中定义：CLab : Array of TQRDBText;
4、在QuickRep1的BeforePrint中写：

SetLength(CLab,DBGrid1.Columns.Count);
for i:=Low(CLab) to High(CLab) do
begin
CLab[i] := TQRLabel.Create(DetailBand1);
CLab[i].Parent := DetailBand1;
CLab[i].DataSet := DataSource1.DataSet;
CLab[i].DataField := DBGrid1.Columns[i].FieldName;
end;
5、在Form1的OnDestroy中写：
for i := Low(CLab) to High(Clab) do
begin
if CLab[i]<>nil then
CLab[i].Free;
CLab[i]:=nil;
end;

6、自定义预览：
procedure TForm1.OnMyPreview(Sender: TObject);
var
ff : TFView;
begin
ff := TFView.Create(self);
try
ff.QRPreview1.QRPrinter := TQRPrinter(Sender);
ff.ShowModal;
finally
ff.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
QuickRep1.OnPreview := OnMyPreview;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
QuickRep1.PreviewModal;
end;

7、结果是在Form1关闭时 “CLab[i].Free;” 产生程序执行非发操作！
“A Win32 API function failed”!
8、但是如果在自定义预览时不用TFView.Show，并且用QuickRep1.Preview；
OnDestroy 不要了，就不会产生错误！

请教！请教！多谢！多谢！

[liang_z]

1、不能进行Free操作是对的，但是我不知这个对象是在什么时候被释放
的，从跟踪来看对象没有释放干净！
2、TO：Whitehare，我不做OnDestroy，即不手动Free，错误依旧！

[zcw]

with TFView.Create(self) do
try
QuickRep1.Preview;
finally
free;
end;

[zcw]

我写报表就是这样的，没错。

[Tine]

好象调用free函数，资源总是释放不干净！！我以前跟踪过，不知道什么原因

[cjf]

你在动态数组的处理上有问题，因为对象已经不存在，不能进行Free操作。

[whitehare]

Form1是整个工程的主体Form1OnDestroy事件发生的时候已到程序的尾声所有的组件已经不存在了,都已从内存中Destroyed

我想应该是错在这里!

[liang_z]

To:zcw
错不在"QuickRep1.Preview"！而在整个程序Close的时候！

[liang_z]

to: peng01234
好象没用的！

[peng01234]

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;

[larm]

/

[skt642]

73234关注！