我写了一个dll,把报表放在了dll里面,怎么用代码在报表中动态创建memo控件?控件的各个参数都知道了,运行的时候总是提示access violation,下面是我的代码,大侠们指点一下该怎么写或者修改一下
var
MemoView:TfrxMemoView;
begin
MemoView:=TfrxMemoView.Create(nil);
MemoView.Name :='DStr'+IntToStr(j)+IntToStr(i);
MemoView.Memo.Add('这个是内容');
(frxCover.Pages[0] as TfrxReportPage).Objects.add(MemoView);
end;
var
MemoView:TfrxMemoView;
begin
MemoView:=TfrxMemoView.Create(nil);
MemoView.Name :='DStr'+IntToStr(j)+IntToStr(i);
MemoView.Memo.Add('这个是内容');
(frxCover.Pages[0] as TfrxReportPage).Objects.add(MemoView);
end;
MemoView:=TfrxMemoView.Create(nil);->MemoView:=TfrxMemoView.Create(self);
procedure TForm1.Button1Click(Sender: TObject);var v: TfrView; b: TfrBandView; Page: TfrPage;begin frReport1.Pages.Clear; frReport1.Pages.Add; // create page Page := frReport1.Pages[0]; b := TfrBandView(frCreateObject(gtBand, '')); // create MasterData band b.SetBounds(0, 20, 0, 20); b.BandType := btMasterData; b.Dataset := 'frDBDataSet1'; Page.Objects.Add(b); v := frCreateObject(gtMemo, ''); // create data field v.SetBounds(20, 20, 200, 16); v.Memo.Add('[Table1."Company"]'); Page.Objects.Add(v); frReport1.ShowReport;end;