摘要：版本一：这种金额大写忽略不同进度间的零的显示，显示效果如：二十万九百一元四角整(200901.40)StringVar x; StringVar xx :=""; NumberVar z; NumberVar i; x := ToText(Sum ({@@AMOUNT})); x := Replace(x,",",""); x := Replace(x,".",""); z := length(x)-2; for i := z to -1 step -1do ( select i case10 阅读全文