FastReport调用Delphi中的自定义函数（人民币大写金额）mtm
2021-04-21 02:29
标签：func create 分享 too ram cti param enc 转换函数 1. 在 FormCreate 中向FastReprot添加函数 (fPrint)窗口 2. 在FastReport用户函数事件中添加 OnUserFunction 3. 在FastReport , memo6 的 OnAfterData 事件中插入如下代码 FastReport调用Delphi中的自定义函数（人民币大写金额）mtm 标签：func create 分享 too ram cti param enc 转换函数 原文地址：https://www.cnblogs.com/westsoft/p/8594402.htmlprocedure 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;
文章标题：FastReport调用Delphi中的自定义函数（人民币大写金额）mtm
文章链接：http://soscw.com/index.php/essay/77412.html