数字小写转大写

网上很多数字小写转大写的代码，大多数写得都有问题，找了个以前用过的，在2010下改了改，已测（测试代码在下方）

function GetCnNumber(num: Double): string;const  _ChineseNumeric: string = '零一二三四五六七八九';var  sIntArabic: string;  PosOfDecimalPoint: integer;  i: integer;  iDigit: integer;  iSection: integer;  sSectionArabic: string;  sSection: string;  bInZero: boolean;  bMinus: boolean;  numstr: string;  (* 将字串反向, 例如: 传入 '1234', 传回 '4321' *)  function ConvertStr(const sBeConvert: string): string;  var    x: integer;  begin    Result := '';    for x := Length(sBeConvert) downto 1 do      Result := Result + sBeConvert[x];  end;begin  numstr := FloatToStr(num);  Result := '';  bInZero := True;  if numStr[1] = '-' then  begin    bMinus := True;    numStr := Copy(numStr, 2, Length(numstr));  end  else    bMinus := False;  PosOfDecimalPoint := Pos('.', numStr);  (* 取得小数点的位置 *)  (* 先处理整数的部分 *)  if PosOfDecimalPoint = 0 then    sIntArabic := ConvertStr(numStr)  else    sIntArabic := ConvertStr(Copy(numStr, 1, PosOfDecimalPoint - 1));  (* 从个位数起以每四位数为一小节 *)  for iSection := 0 to ((Length(sIntArabic) - 1) div 4) do  begin    sSectionArabic := Copy(sIntArabic, iSection * 4 + 1, 4);    sSection := '';    (* 以下的 i 控制: 个十百千位四个位数 *)    for i := 1 to Length(sSectionArabic) do    begin      iDigit := Ord(sSectionArabic[i]) - 48;      if iDigit = 0 then      begin        (* 1. 避免 '零' 的重覆出现 *)        (* 2. 个位数的 0 不必转成 '零' *)        if (not bInZero) and (i <> 1) then          sSection := '零' + sSection;        bInZero := True;      end      else      begin        case i of          2: sSection := '十' + sSection;          3: sSection := '百' + sSection;          4: sSection := '千' + sSection;        end;        sSection := Copy(_ChineseNumeric, iDigit + 1, 1) +          sSection;        bInZero := False;      end;    end;    (* 加上该小节的位数 *)    if Length(sSection) = 0 then    begin      if (Length(Result) > 0) and (Copy(Result, 1, 1) <> '零') then        Result := '零' + Result;    end    else    begin      case iSection of        0: Result := sSection;        1: Result := sSection + '万' + Result;        2: Result := sSection + '亿' + Result;        3: Result := sSection + '兆' + Result;      end;    end;  end;  (* 处理小数点右边的部分 *)  if PosOfDecimalPoint > 0 then  begin    Result := Result + '点';    for i := PosOfDecimalPoint + 1 to Length(numStr) do    begin      iDigit := Ord(numStr[i]) - 48;      Result := Result + Copy(_ChineseNumeric, iDigit + 1, 1);    end;  end;  (* 其他例外状况的处理 *)  if Length(Result) = 0 then    Result := '零';  if Copy(Result, 1, 2) = '一十' then    Result := Copy(Result, 2, Length(Result));  if Copy(Result, 1, 1) = '点' then    Result := '零' + Result;  (* 是否为负数 *)  if bMinus then    Result := '负' + Result;end;

测试代码：

procedure Tform1.AddMsg( s: string );begin  mmoInfo.Lines.Add( s );end;procedure btnTestClick(Sender: TObject);begin  AddMsg( GetCnNumber( 5 ));  AddMsg( GetCnNumber( 15 ));  AddMsg( GetCnNumber( 25 ));  AddMsg( GetCnNumber( 115 ));  AddMsg( GetCnNumber( 1234 ));  AddMsg( GetCnNumber( 12345 ));  AddMsg( GetCnNumber( 123456 ));  AddMsg( GetCnNumber( 1234567 ));  AddMsg( GetCnNumber( 12345678 ));  AddMsg( GetCnNumber( 12345008 ));  AddMsg( GetCnNumber( 12300678 ));  AddMsg( GetCnNumber( 0.15 ));  AddMsg( GetCnNumber( 15.12 ));  AddMsg( GetCnNumber( 12345.2 ));  AddMsg( GetCnNumber( -12 ));  AddMsg( GetCnNumber( -12345.2 ));end;