文档介绍：小写金额转换如下为一个简单的小写金额转换为大写的函数,其思路简单(可以说烂吧,居然利用了位置来转换),但是它几乎可以无限制的转换,只要你能读得出来和写得进去:(small:real):string;varSmallMonth,BigMonth:string;   wei1,qianwei1:string[2];   qianwei,dianweizhi,qian:integer;begin  {-------修改参数令值更精确-------}  {小数点后的位置,需要的话也可以改动-2值}  qianwei:=-2;  {转换成货币形式,需要的话小数点后加多几个零}  Smallmonth:=formatfloat('',small);  {---------------------------------}  dianweizhi:=pos('.',Smallmonth);{小数点的位置}  {循环小写货币的每一位,从小写的右边位置到左边}  forqian:=length(Smallmonth)downto1do  begin    {如果读到的不是小数点就继续}    ifqian<>dianweizhithen    begin    {位置上的数转换成大写}       casestrtoint(copy(Smallmonth,qian,1))of         1:wei1:='壹';2:wei1:='贰';         3:wei1:='叁';4:wei1:='肆';         5:wei1:='伍';6:wei1:='陆';         7:wei1:='柒';8:wei1:='捌';         9:wei1:='玖';0:wei1:='零';       end;       {判断大写位置,可以继续增大到real类型的最大值}       caseqianweiof         -3:qianwei1:='厘';         -2:qianwei1:='分';         -1:qianwei1:='角';         0:qianwei1:='元';         1:qianwei1:='拾';         2