输入数字转换为人民币大写,Delphi源代码,代码里有个重要的转换单位,此单位共定义两个函数来实现数字金额的中文大写转化,此函数可支持12位整数。程序思路如下: 将小数点前的整数取出,算出整数长度,不足千亿时前面补足0! 角分分别求出并保存! 将12位的整数分割成3部分,高位代表亿,中间的代表万,剩下的代表千圆及一下 分割成的三部分都有相同的长度,每位各代表千位、百位、拾位、个位 定义genge函数,将计算这四位的数 将3部分分别计算出来,合成,这里就是整数位的大写形式 计算出分角形式 合成,做尾后处理,输出返回