摘要： function TForm1.DecToRoman(iDecimal: integer ): string;constaRomans: array [ 1..13 ] of string = ( 'I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M' );aArabics: array [ 1..13 ] 阅读全文

摘要： function Tform1.Num2CNum(dblArabic: double): string;const _ChineseNumeric = '零壹贰叁肆伍陆柒捌玖';var sArabic: string; sIntArabic: string; iPosOfDecimalPoint: integer; i: integer; iDigit: integer; iSection: integer; sSectionArabic: string; sSection: string; bInZero: boolean; bMinus: boolean; (* 将字串反向 阅读全文