设置如下: ———- function TForm1.MoneyCn(mmje: Double): string; const   s1: string = '零壹贰叁肆伍陆柒捌玖';   s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万';   function StrTran(const S, s1, s2: string): string;   begin     Result