分享个Delphi人民币转大写的函数

                开发到财务方面的东西,往往需要把数值转换成大写金额输出。 网上找了一圈都没发现完美的,尤其是在XE系列下。 发现这个写法还是比较满意的,特分享。   function THxsdj.UPRMB(val: Double): string; {人民币转大写函数}   var     Dig, Dpos, retVal, retValjf: string;     IntPart: