怎么样把Form上的Edit的值直接传给Fastreport呀！

Question

怎么样把Form上的Edit的值直接传给Fastreport呀！
假如有几个Edit!都要传给Frreport的memo!!!

Answer 1

设变量
  //方法一  unitname为在报表数据字典中定义的变量
  frVariables['unitname1']:= Edit1.Text  ;
  frReport1.ShowReport;
  //方法二
  frReport1.FindObject('memo4').memo.Text:= Edit2.Text;
  frReport1.ShowReport;
procedure TForm1.frReport1GetValue(const ParName: String;
  var ParValue: Variant);
begin    
  //方法三  unitname为在报表数据字典中定义的变量
  if ParName = 'unitname3' then
  Begin
    ParValue := Edit3.Text;
  End;
end;

Answer 2

在FASTREPORT中USE一下FORM1所在的单元就可以了

Answer 3

(1)在报表数据字典中定义的一个变量比如:aa
(2)在报表里使用变量[aa]
(3)进行赋值
procedure TForm1.frReport1GetValue(const ParName: String;
  var ParValue: Variant);
begin    
  //方法三  unitname为在报表数据字典中定义的变量
  if ParName = 'aa' then
  Begin
    ParValue := Edit1.Text;
  End;
end;