Delphi数字大小写转换程序实例.rar

时间:2022-07-30 06:24:07
【文件属性】:

文件名称:Delphi数字大小写转换程序实例.rar

文件大小:422KB

文件格式:RAR

更新时间:2022-07-30 06:24:07

Delphi源码-字符处理

Delphi数字大小写转换程序实例,并附有语音报号程序,实例在Delphi7.0下可顺利编译。主要是针对人民币的数字大小写转换,将阿拉伯数字转换成大写,具体定义:const mnUnit:WideString ='分角元';   const OtherWords:WideString='\u6574\u8d1f';   const hzUnit:WideString = '拾佰仟万拾佰仟亿';   const hzNum:WideString='\u96f6\u58f9\u8d30\u53c1\u8086\u4f0d\u9646\u67d2\u634c\u7396';   当从所取位置要取的字符数超过字符串长度时,修正所取字符串个数。


【文件预览】:
codesc.net
----Money2ChineseCapital()
--------MEDIA()
--------Project1.res(876B)
--------新建 文本文档.txt(5KB)
--------Unit1.dfm(1KB)
--------金额大写.txt(5KB)
--------Unit1.ddp(51B)
--------Project1.cfg(1KB)
--------Unit1.pas(5KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(8KB)

网友评论