说明: 34,36进制到10进制源码,老鸟可忽略啊 ,限制字符,只好copy些字符来 function IntToDigit(mNumber: Integer; mScale: Byte; mLength: Integer = 0): string; //返回整数的进制表示 ;mScale 指定多少进制 ;mLength 指定长度 ,长度不足时向前补 0 var I, J: Integer; begin Result := ; I := mNumber; while (I >= mScale <wu_minmin> 上传 | 大小:557kb