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

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'; 　　当从所取位置要取的字符数超过字符串长度时，修正所取字符串个数。