Delphi FastReport动态向指定控件填入内容

constructor TPrinter.Create(sFileName: string);
begin
  frxReport := TfrxReport.Create(nil);
  frxReport.LoadFromFile(sFileName, True);
  frxReport.PrintOptions.Printer := sPrinterName;  //设置指定打印机 'BOSHI BS-280K'
  frxReport.OnBeforePrint := frxReport1BeforePrint;
end;
 

procedure TPrinter.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
  sTemp: string;
begin
  if (Sender is TfrxMemoView) then
  begin
    if ((Sender as TfrxMemoView).Name = 'Memo_FPHM') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FFPHM
    else if ((Sender as TfrxMemoView).Name = 'Memo_JQBH') then
      (Sender as TfrxMemoView).Memo.Text := Card.JSPBH
    else if ((Sender as TfrxMemoView).Name = 'Memo_XFMC') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FXFMC
    else if ((Sender as TfrxMemoView).Name = 'Memo_XFSH') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FXFSH
    else if ((Sender as TfrxMemoView).Name = 'Memo_GFMC') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FGFMC
    else if ((Sender as TfrxMemoView).Name = 'Memo_GFSH') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FGFSH
    else if ((Sender as TfrxMemoView).Name = 'Memo_KPRQ') then
      (Sender as TfrxMemoView).Memo.Text := FormatDateTime('yyyy年MM月dd日', Now)
    else if ((Sender as TfrxMemoView).Name = 'Memo_SKR') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FSKR
    else if ((Sender as TfrxMemoView).Name = 'Memo_JSHJ') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FHJJE
    else if ((Sender as TfrxMemoView).Name = 'Memo_JSHJDX') then
    begin
      TransMoney(StrToFloat(Inv.FHJJE), sTemp);
      (Sender as TfrxMemoView).Memo.Text := sTemp //转大写
    end
    else if ((Sender as TfrxMemoView).Name = 'memo_FWM') then
      (Sender as TfrxMemoView).Memo.Text := Inv.FFWM
    else
    begin
      sTemp:= (Sender as TfrxMemoView).Name;
      (Sender as TfrxMemoView).Memo.Text :=GetValue(sTemp);
    end;
  end
  else if (Sender is TfrxBarCodeView) then
  begin
    if ((Sender as TfrxBarCodeView).Name = 'bcFWM') then
      (Sender as TfrxBarCodeView).Text := Inv.FFWM;
  end;
end;
————————————————
版权声明：本文为CSDN博主「liang08114」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/liang08114/article/details/78426223