10行代码搞定金额大小写转换

//10行代码搞定金额大小写转换//原创渴死的鱼hanlin2020@hotmail.com//改编inRminrm@263.netfunctionNumToChar(n:Real):wideString;//可以到万亿,并可随便扩大constcNum:WideString=‘零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分‘;cCha:array[0..1,0..11]ofstring=((‘零仟‘,‘零佰‘,‘零拾‘,‘零零零‘,‘零零‘,‘零亿‘,‘零万‘,‘零元‘,‘亿万‘,‘零角‘,‘零分‘,‘零整‘),(‘零‘,‘零‘,‘零‘,‘零‘,‘零‘,‘亿‘,‘万‘,‘元‘,‘亿‘,‘零‘,‘整‘,‘整‘));va