delphi编程小写金额转换

　　财务软件中总少不了大写的金额表示方式，如下为一个简单的小写金额转换为大写的函数，其思路简单（可以说烂吧，居然利用了位置来转换），但是它却几乎可以无限制的转换，只要你能读得出来和写得进去：

function Tform1.SmallTOBig(small:real):string;var SmallMonth,BigMonth:string;wei1,qianwei1:string[2];wei,qianwei,dianweizhi,qian:integer;begin{------- 修改参数令值更精确 -------}{小数点后的位数，需要的话也可以改动该值}qianwei:=-2; {转换成货币形式，需要的话小数点后加多几个零}Smallmonth:=formatfloat(0.00,small);{---------------------------------}dianweizhi :=pos(.,Smallmonth);{小数点的位置}{循环小写货币的每一位，从小写的右边位置到左边}for qian:=length(Smallmonth) downto 1 dobegin{如果读到的不是小数点就继续}if qiandianweizhi thenbegin{位置上的数转换成大写}case strtoint(copy(Smallmonth,qian,1)) of1:wei1:=壹; 2:wei1:=贰;3:wei1:=叁; 4:wei1:=肆;5:wei1:=伍; 6:wei1:=陆;7:wei1:=柒; 8:wei1:=捌;9:wei1:=玖; 0:wei1:=零;end;{判断大写位置，可以继续增大到real类型的最大值，可是谁有那么多钱}case qianwei of-3:qianwei1:=厘;-2:qianwei1:=分;-1:qianwei1:=角;0 :qianwei1:=元;1 :qianwei1:=拾;2 :qianwei1:=佰;3 :qianwei1:=千;4 :qianwei1:=万;5 :qianwei1:=拾;6 :qianwei1:=佰;7 :qianwei1:=千;8 :qianwei1:=亿;9 :qianwei1:=十;10:qianwei1:=佰;11:qianwei1:=千;end;inc(qianwei);BigMonth :=wei1+qianwei1+BigMonth;{组合成大写金额}end;end;SmallTOBig:=BigMonth;end;

　　程序调用如下edit1.text:=SmallTOBig(1234567890.1234);他自动默认小数点后两位。