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中调用api函数exitwindowsex可以实现系统的关机，注销，和重启

pe结构详细图

Delphi xe 减少程序体积！

Delphi 实现禁用“任务管理器”

Delphi xe7的android应用设定wifi的有效无效

Delphi (user agent) of a twebbrowser

Delphi编写提取exe文件的ico图标

Delphi 封装的tidhttp get post 请求

Delphi 获取指定年月的周、日数 -weeksinayear、weeksinyear、daysinayear、daysinamonth、daysinyear、daysinmonth

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