[经典]将阿拉伯数字转成中文数字字串和将中文字串转成拉伯数字

最新推荐文章于 2024-07-02 15:27:12 发布

nhczp

最新推荐文章于 2024-07-02 15:27:12 发布

阅读量1.6k

点赞数

分类专栏： DELPHI 文章标签： integer string function date div interface

本文链接：https://blog.csdn.net/nhczp/article/details/1549493

版权

这是一个包含两个函数的单元，用于将阿拉伯数字转换成中文数字字串（Num2CNum）和将中文数字字串转换成阿拉伯数字（CNum2Num）。函数由Wolfgang Chien编写，支持整数和小数部分的转换，并处理了负数和小数点的情况。

摘要由CSDN通过智能技术生成

来自32位深度历险台湾钱达智先生

unit   cutils;

interface

uses
SysUtils;

function   CNum2Num(sChineseNum:   string;   var   dblArabic:   double):
boolean;
function   Num2CNum(dblArabic:   double):   string;

implementation

(*   --------------------------------------------------   *)
(*   Num2CNum     将阿拉伯数字转成中文数字字串
(*   使用示例:
(*       Num2CNum(10002.34)   ==>   一万零二点三四
(*
(*   Author:   Wolfgang   Chien
(*   Date:   1996/08/04
(*   Update   Date:
(*   --------------------------------------------------   *)
function   Num2CNum(dblArabic:   double):   string;
const
      _ChineseNumeric   =   '零一二三四五六七八九';
var
      sArabic:   string;
      sIntArabic:   string;
      iPosOfDecimalPoint:   integer;
      i:   integer;
      iDigit:   integer;
      iSection:   integer;
      sSectionArabic:   string;
      sSection:   string;
      bInZero:   boolean;
      bMinus:   boolean;

      (*   将字串反向,   例如:   传入   '1234',   传回   '4321'   *)
      function   ConvertStr(const   sBeConvert:   string):   string;
      var
          x:   integer;
      begin
          Result   :=   '';
          for   x   :=   Length(sBeConvert)   downto   1   do
              AppendStr(Result,   sBeConvert[x]);
      end;   {   of   ConvertStr   }
begin
      Result   :=   '';
      bInZero   :=   True;
      sArabic   :=   FloatToStr(dblArabic);   (*   将数字转成阿拉伯数字字串   *)
      {$ifdef   __Debug}
      ShowMessage('FloatToStr(dblArabic):   '   +   sArabic);
      {$endif}
      if   sArabic[1]   =   '-'   then
      begin
          bMinus   :=   True;
          sArabic   :=   Copy(sArabic,   2,   254);
      end
      else
          bMinus   :=   False;
      iPosOfDecimalPoint   :=   Pos('.',   sArabic);     (*   取得小数点的位置   *)
      {$ifdef   __Debug}
      ShowMessage('Pos(''.'',   sArabic)   '   +
IntToStr(iPosOfDecimalPoint));
      {$endif}

      (*   先处理整数的部分   *)
      if   iPosOfDecimalPoint   =   0   then