Super Sonic

摘要： 人民币大写金额转换函数 function MoneyToCn(ANumberic: Real): string; const s1: string = '零壹贰叁肆伍陆柒捌玖'; s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万'; function StrTran(const S, s1, s2: string): string; begin Result := Stri... 阅读全文