Delphi 阿拉伯数字转中文汉字数字


本文整理自网络,侵删。

 
function MoneyConvert2(mmje:real): WideString;
const
  cNum: WideString = '零一二三四五六七八九-万仟佰拾亿仟佰拾万仟佰拾元角分';
        cCha: array[0..1, 0..11] of string =
        (('零仟','零佰','零拾','零零零','零零',
           '零亿','零万','零元','亿万','零角','零分','零整'),
         ( '零','零','零','零','零','亿','万','元','亿','零','整','整'));
var
  i: Integer;
  sNum :WideString;
begin
  Result := '';
  if mmje < 0 then
  begin
    Result := '负';
    mmje := -mmje;
  end;
  sNum := FormatFloat('0',mmje*100);
  for i := 1 to Length(sNum) do
  begin
    Result := Result + cNum[ord(sNum[i])-47] + cNum[26-Length(sNum)+i];
  end;

  for i:= 0 to 11 do // 去掉多余的零
  begin
    Result := StringReplace(result, cCha[0,i], cCha[1,i], [rfReplaceAll]);
  end;

Result :=StringReplace (Result, '元整', '', [rfReplaceAll]);
Result :=StringReplace (Result, '拾', '十', [rfReplaceAll]);

end;

相关阅读 >>

Delphi 如何产生输出一个变形的图形及文字

Delphi 实现窗体随着鼠标移动

Delphi 判断文件是否被占用

Delphi 用 gdi+ 给图片添加花边的例子

Delphi获取闲置时间

Delphi 把mp3做背景音乐

Delphi的idhttp报iohandler value is not valid错误的原因

Delphi ide 默认保存路径设置

Delphi encddecd 加密解密

Delphi 检查字符串是不是 包含 中文和获取中文字符个数

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...