• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

1. 在 FormCreate 中向FastReprot添加函数 (fPrint)窗口

procedure TfPrint.FormCreate(Sender: TObject);

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

end;

 

2. 在FastReport用户函数事件中添加 OnUserFunction

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

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

end;

 

3.     在FastReport , memo6 的 OnAfterData 事件中插入如下代码

procedure Memo6OnAfterData(Sender: TfrxComponent);
begin

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


-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

 

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
在Delphi中静态调用DLL发布时间:2022-07-18
下一篇:
数据格式转换【Delphi版】发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap