FastReport调用Delphi中的自定义函数（人民币大写金额）mtm

procedure TfPrint.FormCreate(Sender: TObject);

  frxReport1.AddFunction(‘function MoneySpeechC(pMoney: Currency): String;‘,‘Myfunction‘,‘人民币大写金额转换函数‘);

end;

function TfPrint.frxReport1UserFunction(const MethodName: string; var Params: Variant): Variant;
begin

  if UpperCase(MethodName) = UpperCase(‘MoneySpeechC‘) then
     Result := MoneySpeechC(Params[0]);

end;

procedure Memo6OnAfterData(Sender: TfrxComponent);
begin

   //-------
   memo6.text := MoneySpeechC(memo6.Value);
   
end;