在FastReport中动态创建memo

对于FastReport，它利用你自己的程序代码动态创建报表窗体，就象VCL对象一样。
这个例子可以从RUNTIME子目录中找到。
这个例子中，当按下按钮后，一个从CUSTOMER.DB数据表接收公司列表的报表将被创建。这个按钮的OnClick事件处理的源代码显示如下：
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;
首先这个代码删除报表中所有可用的页面，然后创建一个空白页：
frReport1.Pages