D
daifan
Unregistered / Unconfirmed
GUEST, unregistred user!
软件环境: delphi 7.0 + quickReport 4.0.5
大约代码如下:
procedure Tfrm3001.FormCreate(Sender: TObject);
begin
try
ArepBill := TrepNewBill.Create(self);
except
end;
try
ArepBill1 := TrepNewBill1.Create(self);
except
end;
.....
procedure Tfrm3001.FormDestroy(Sender: TObject);
begin
if ArepBill <> nil then
ArepBill.Destroy;
if ArepBill1 <> nil then
ArepBill1.Destroy;
............
TrepNewBill,TrepNewBill1是2个继承QuickReport的报表类.
现在的问题是,ArepBill.Preview执行后,再调用ArebBill1.Preview 就显示
stack overflow错误.
怎么解决?
大约代码如下:
procedure Tfrm3001.FormCreate(Sender: TObject);
begin
try
ArepBill := TrepNewBill.Create(self);
except
end;
try
ArepBill1 := TrepNewBill1.Create(self);
except
end;
.....
procedure Tfrm3001.FormDestroy(Sender: TObject);
begin
if ArepBill <> nil then
ArepBill.Destroy;
if ArepBill1 <> nil then
ArepBill1.Destroy;
............
TrepNewBill,TrepNewBill1是2个继承QuickReport的报表类.
现在的问题是,ArepBill.Preview执行后,再调用ArebBill1.Preview 就显示
stack overflow错误.
怎么解决?