关于fastReport参数传值问题！

Question

在報表的Memo裏面寫了參數 TranID
我怎麽在
procedure TtransfersForm.frxReport1GetValue(const VarName: String;
  var Value: Variant);
begin
     怎麽把數據集中的一個字段值赙给TranID呢！ 
end;

Answer 1

procedure TtransfersForm.frxReport1GetValue(const VarName: String;
  var Value: Variant);
begin
   //  怎麽把數據集中的一個字段值赙给TranID呢！
   if VarName = 'TranID' then
   begin
     Value := DataSet.FieldbyName('TranID').AsString;
   end;
end;

Answer 2

假设你的报表名称为ReportReport.Dictionary.Variables.Variable['TranID']:=''''+AdoQuery1.fieldbyname('编号').Asstring+'''';

Answer 3

提供一种我用的办法.
var
  t:TfrxMemoView;
begin
  t:=TfrxMemoView(frxReport.FindObject('memo1'));
  t.text:=DataSet.FieldbyName('TranID').AsString;
end;