秋·風

procedure TForm1.frReport1GetValue(const ParName: String; var ParValue: Variant
  );
begin
  if ParName='aa' then
    Parvalue:='測試';
end;

    procedure SetVariables(vName:string;V: Variant);

procedure TfrReport.SetVariables(vName:string;V: Variant);
var
 i,k:Integer;
 s:String;
begin
  for k:=0 to Pages.Count-1 do
  begin
    for i:=0 to Pages[k].Objects.Count-1 do
    Begin
      s:=trim(TfrObject(Pages[k].Objects[i]).Memo.Text);
      if pos(vName,s)>0 then
      begin
        s:=s.Replace('['+vName+']',VartoStr(v),[rfReplaceAll, rfIgnoreCase]);
        if v.Types
        TfrObject(Pages[k].Objects[i]).Memo.Text:=s;
        Break;
      end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  frReport1.SetVariables('aa','客運中心');
  frReport1.ShowReport;
end;