如何编程给fastreport中的TfrMemoView赋值?

Question

我只会在设计器中为TfrMemoView赋值，而后保存为.frf文件，请问如何调出已有的.frf文件（界面已设计好）后（不用打开设计器），用编程的方法把TfrMemoView的值赋上去（如其值为form1.edit1.text)。
请高手不吝赐教，最好有相关源码，多谢了！

Answer 1

首先，在设计器里面增加一个变量，比如，mStr;
将你要赋值的memo的内容设为这个变量
然后，在TFrReport的onGetValue事件中，给这个变量赋值就行了，注意，大小写是敏感的

Answer 2

请问具体怎么做？怎么在设计器中增加变量，在onGetValue事件中又如何赋值？

Answer 3

设置赋值的TfrMemoView的内容为：  [mytext]with myFrReport.Dictionary do
   begin
       Variables['mytext'] := '''' + form1.edit1.text + '''';
   end;
myFrReport.showreport;给分吧

Answer 4

//========不用变量，我都是这样作。
procedure TFrmRecord.frReport1BeforePrint(Memo: TStringList;
  View: TfrView);
begin
if View.Name = 'Picture1' then
  TfrPictureView(View).Picture.Assign(Image1.Picture);
if View.Name = 'Memo17' then
  TfrPictureView(view).FormatStr:='asdfasdf';
end;

Answer 5

简单的：  var
    t: TfrMemoView;
  begin
    t := TfrMemoView(frReport1.FindObject('Memo1'));
    if t <> nil then
      t.Memo.Text := 'FastReport';
  end;