最精简的小写金额转大写的函数

.测试通过了。

function  NumToChar ( const  n :  Real ):  string ;    //可以到万亿，并且可以随便扩大范围 
const 
   cNum :  WideString  =  '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分' ; 
   cCha : array [ 0..1 ,  0..12 ] of  string = 
   ((  '零元' , '零拾' , '零佰' , '零仟' , '零万' , '零亿' , '亿万' , '零零零' , '零零' , '零万' , '零亿' , '亿万' , '零元' ), 
   (  '元' , '零' , '零' , '零' , '万' , '亿' , '亿' , '零' , '零' , '万' , '亿' , '亿' , '元' )); 
var 
   i  :  Integer ; 
   sNum , sTemp  :  WideString ; 
begin 
   result  := '' ; 
   sNum  :=  format ( '%15d' ,[ round ( n  *  100 )]); 
   for  i  :=  0  to  14  do 
   begin 
     stemp  :=  copy ( snum , i + 1 , 1 ); 
     if  stemp = ' '  then  continue 
     else  result  :=  result  +  cNum [ strtoint ( stemp )+ 1 ]  +  cNum [ i + 13 ]; 
   end ; 
   for  i :=  0  to  12  do 
   Result  :=  StringReplace ( Result ,  cCha [ 0 , i ],  cCha [ 1 , i ],  [ rfReplaceAll ]); 
   if  pos ( '零分' , result )= 0 
     then  Result  :=  StringReplace ( Result ,  '零角' ,  '零' ,  [ rfReplaceAll ]) 
     else  Result  :=  StringReplace ( Result ,  '零角' , '整' ,  [ rfReplaceAll ]); 
   Result  :=  StringReplace ( Result ,  '零分' , '' ,  [ rfReplaceAll ]); 
end ; 

2.这个我没有测试

function  Changdx2 ( mmje :  Double ):  String ; 
const  s1 :  String  =  '零壹贰叁肆伍陆柒捌玖' ; 
       s2 :  String  =  '分角元拾佰仟万拾佰仟亿拾佰仟万' ; 

function  StrTran ( const  S ,  S1 ,  S2 :  String ):  String ; 
begin 
     Result  :=  StringReplace ( S ,  S1 ,  S2 ,  [ rfReplaceAll ]); 
end ; 
var 
s ,  dx :  String ; 
      i ,  Len :  Integer ; 
begin 
if  mmje  <  0  then 
   begin 
     dx  :=  '负' ; 
     mmje  :=  - mmje ; 
   end ; 
    s  :=  Format ( '%.0f' ,  [ mmje * 100 ]); 
    Len  :=  Length ( s ); 
   for  i  :=  1  to  Len  do 
    dx  :=  dx  +  Copy ( s1 ,  ( Ord ( s [ i ])  -  Ord ( '0' ))* 2  +  1 ,  2 )  +  Copy ( s2 ,  ( Len  -  i )* 2  +  1 ,  2 ); 
    dx  :=  StrTran ( StrTran ( StrTran ( StrTran ( StrTran ( dx ,  '零仟' ,  '零' ),  '零佰' ,  '零' ),  '零拾' ,  '零' ),  '零角' ,  '零' ),  '零分' ,  '整' ); 
    dx  :=  StrTran ( StrTran ( StrTran ( StrTran ( StrTran ( dx ,  '零零' ,  '零' ),  '零零' ,  '零' ),  '零亿' ,  '亿' ),  '零万' ,  '万' ),  '零元' ,  '元' ); 
   if  dx  =  '整'  then  Result  :=  '零元整' 
   else  Result  :=  StrTran ( StrTran ( dx ,  '亿万' ,  '亿零' ),  '零整' ,  '整' ); 
end ;