动态创建memo,照抄都在编译时通不过。解决即结帖

Question

别人的一段代码，不是很明白，望指点为谢。
var
  v:TfrMemoView;
begin
   //报表标题
  v := TfrMemoView.Create;  
  v.Parent:=TfrBand(bvPageHeader);//此处出现Undeclared identifier: 'bvPageHeader'
  v.SetBounds(20, 40,100, 50);
  v.BandAlign := baWidth;
  v.Prop['Alignment'] := frtaCenter;  
  v.Prop['Font.Style'] := 2;
  v.Prop['Font.Size']:=16;
  v.Prop['Font.Style.fsBold']:=True;
  v.Prop['AuotWidth']:=True;
  v.Memo.Add(s_StrTitle);
  Page.Objects.Add(v);//此处出现Undeclared identifier: 'Page'
end;

Answer 1

bvPageHeader 这个实体有没有定义可以看看fastreport 的demo里面就有一个动态创建报表的实例~~

Answer 2

to:helodd
根据你的提示，我改了一下，现在编译能通过，就是执行时没任何显示

Answer 3

是不是v.visibled:=true;没添加？？

Answer 4

var
  v:TfrMemoView;
  s_StrTitle:string;
  Page: TfrPage;
begin
  Page := frReport1.Pages[0];
   //报表标题
  v := TfrMemoView.Create;  // create memo
  v.Parent:=tfrband(btReportTitle);
  v.SetBounds(100, 45, 40, 40);
  v.BandAlign := baWidth;
  v.Prop['Alignment'] := 2;   // another way to access properties
  v.Prop['Font.Style'] := fsBold;
  v.Prop['Font.Size']:=16;
  v.Prop['Font.Style.fsBold']:=True;
  v.Prop['AutoWidth']:=True;
  s_StrTitle:='aaaaaaaaaaaaaaaaa';
  v.Memo.Add(s_StrTitle);
  v.Visible:=true;
  page.Objects.Add(v);
end;
还是不行，大哥帮我

Answer 5

我想可能是这原因：Source File not Found:fr_class.pas
而我找遍FASTREPORT文件夹也没发现fr_class.pas
大哥帮帮我，怎样解决？