!十万火急!!!各位大侠进来!!帮帮忙啊!!!

最近小弟在做一个有关财务的软件,涉及到小写金额转化为大写的情况!票据是才用套打得!!票据是这样的格式:
结算金额合计:大写:   拾   万   千    百    拾    元    角    分
请问我该如何转化成大写然后把相应的数字填在上面空格里:
如:1230.02 (零 拾 零 万  壹 千 贰 百 叁 拾 零 元 零 角 贰 分)
不够位数的前面都要补零,如果是整数后面也要补零

解决方案 »

  1.   

    字段的值仍用数值表示，只是在打印的时候再把相应的数字通过函数转化为大写；
    转化后的值通过变量传到报表中即可。留个mail下来，发个函数给你
      

  2.   

    1230.02 --->Format转换为字串S--> 001230.02然后，for I := 1 To Length(S) do
            Case S[I] of
              0 : 在I位处打印'零';
              1 : .....
    ........
      

  3.   

    仅是给个思路。相信楼主已看出我在上面代码中有书写的错误，例如：Case S[I] of 0 应为
    Case S[I] of '0'