数字转换成中文数值的方法

本文链接：https://blog.csdn.net/suihu/article/details/2242506

function IntToChinese(Num: Integer): string;
var
    I: Integer;
    len: Integer;
    iChar: Integer;
    chNum: string;
begin
    Result := '';
    len := Length(IntToStr(Num));
    for I := 1 to len do
    begin
      iChar := StrToInt(Copy(IntToStr(Num), I, 1));
      case iChar of
        0: chNum := '零';
        1: chNum := '一';
        2: chNum := '二';
        3: chNum := '三';
        4: chNum := '四';
        5: chNum := '五';
        6: chNum := '六';
        7: chNum := '七';
        8: chNum := '八';
        9: chNum := '九';
      end;

Result := Result + chNum;

      if (I = len - 1) and (iChar <> 0) then Result := Result + '十';
      if (I = len - 2) and (iChar <> 0) then Result := Result + '百';
      if (I = len - 3) and (iChar <> 0) then Result := Result + '千';
      if (I = len - 4) and (iChar <> 0) then Result := Result + '万';
      if (I = len - 5) and (iChar <> 0) then Result := Result + '十';
      if (I = len - 6) and (iChar <> 0) then Result := Result + '百';
      if (I = len - 7) and (iChar <> 0) then Result := Result + '千';
      if (I = len - 8) and (iChar <> 0) then Result := Result + '万';
    end;

    while (Length(Result) > 2)
        and (Copy(Result, 1, 2) = '一')
        and (Copy(Result, 3, 2) = '十') do
      Result := Copy(Result, 3, Length(Result));

    while (Length(Result) > 2)
        and (Copy(Result, Length(Result) - 1, Length(Result)) = '零') do
      Result := Copy(Result, 1, Length(Result) - 2);
end;