编写一个收费软件时要用到一个小写金额转换成大写金额的函数，我曾在网上找到一个用Powerbuilder写的函数，长达四五十行之巨，后来我自己用DELPHI写了一个函数，寥寥几行代码就搞定： function TForm1.xTOd(i:Real):string; const d=‘零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿‘; var m,k:string; j:integer; begin k:=‘‘; m:=floattostr(int(i*100)); for j:=length(m)
unit CnDigits;{-------------------------------------------------------------------- 货币数字转为为中文大写的组件 Version 1.31 by SNAKEJIAO 2003.4.13简介: 可以转化整数，浮点数，及时间日期型数据 配合别名列表可以进行语音合成，主要用于 东进中继卡中的PlayPrompt提示语音的合成 用于电话系统中播放金额，日期及时间 还有输入的数字序列，同时更多的应用于显示 销售系统中的打
