delphi 精炼的数字转换人民币大写转换代码

本文整理自网络，侵删。

 
function MoneyConvert(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;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.text:=MoneyConvert(123);
end;
 

相关阅读 >>

Delphi 服务器群集解决方案

Delphi在手机桌面图标上显示数字

Delphi xe实现android 添加图片资源到应用并使用它

Delphi中生成控件的两种方法

Delphi xe5读取android imei id

Delphi 取出一个字符在字符串出现的次数

Delphi 如何判断某一窗口最大化

Delphi 之 工具栏组件(ttoolbar)

Delphi 把字符串复制到剪贴板

Delphi 7 + gdiplus 简单实现双缓冲绘制移动图形

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

转载请注明出处：木庄网络博客 » delphi 精炼的数字转换人民币大写转换代码