2018年3月15日
[转]Delphi 12种大小写转换的方法
摘要： 第一种方法 function TPrintfrm.NumToChar(n: Real): wideString; //可以到万亿,并可随便扩大constcNum: WideString = '零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分'; cCha: array[0..1, 0..11] 阅读全文
posted @ 2018-03-15 16:39 K.R 阅读(2651) 评论(0) 推荐(0) 编辑