人民币大小写问题，，求思路

[iq715626205]

在BCB中用FASTREPORT搞报表，，想做个报销单，，需要实现人民币大小写转换问题，求人才们给点思路给点步骤啊，，FASTREPORT刚刚开始学，，希望讲解能详细点，

[CppFile]

http://wenku.baidu.com/view/ec720b659b6648d7c1c746a6.html

这个已经有人写过了

[缘中人]

收藏下

[开始领悟]

我也看看

[apacheii]

delphi版本：

function toChineseCapitalMoney(const Num: Extended): String;
const
  cNum: String = '零壹贰叁肆伍陆柒捌玖◆万仟佰拾亿仟佰拾万仟佰拾元角分';
  cCha: String = '零仟零佰零拾零零零零零亿零万零元亿万零角零分零整◆零零零零零亿万元亿零整整';
var
  sNum: String;
  i: Integer;
begin
  if (Num <> 0) and (abs(Num) < 10000000000000) Then
  begin
    sNum := FormatFloat('0', RoundTo(Num, -2) * 100.0);
    for i := 1 to Length(sNum) do
      Result := Result + Copy(cNum, StrToInt(Copy(sNum, i, 1)) + 1, 1) +
        Copy(cNum, 26 - Length(sNum) + i, 1);
    for i := 0 to 11 do
      Result := StringReplace(Result, Copy(cCha, i * 2 + 1, 2),
        Copy(cCha, i + 26, 1), [rfReplaceAll]);
    if Num < 0 then
      Result := '(负)' + Result;
  end
  else if Num = 0 then
    Result := '零元'
  else
    Result := '溢出';
end;