基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

将数字金额变为，大写对应金额功能。

delphi7编译运行通过

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;