03 2018 档案

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