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