文件名称：34,36进制到10进制源码
文件大小：557KB
文件格式：RAR
更新时间：2022-05-03 11:11:16
计数器
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) and (mScale > 1) do begin J := I mod mScale; I := I div mScale; Result := cScaleChar[J + 1] + Result; end; Result := cScaleChar[I + 1] + Result; for I := 1 to mLength - Length(Result) do Result := '0' + Result; end; { IntToDigit } function DigitToInt(mDigit: string; mScale: Byte): Integer; //返回进制表示转换成整数 ;mScale 指定多少进制 var I: Byte; L: Integer; begin Result := 0; mDigit := UpperCase(mDigit); L := Length(mDigit); for I := 1 to L do Result := Result + (Pos(mDigit[L - I + 1], cScaleChar) - 1) * IntPower(mScale, I - 1); end; { DigitToInt }
【文件预览】：
N进制转换-34
----Unit1.ddp(51B)
----Barcode_1.ico(1KB)
----Project1.res(2KB)
----Unit1.dcu(7KB)
----Unit1.~ddp(51B)
----Unit1.dfm(3KB)
----Project1.cfg(434B)
----Desktop_.ini(9B)
----Project1.dpr(188B)
----Unit1.~dfm(3KB)
----Project1.exe(392KB)
----Project1.dof(3KB)
----Unit1.~pas(3KB)
----Unit1.pas(3KB)
N进制转换-36
----Unit1.ddp(51B)
----Project1.res(4KB)
----Unit1.dcu(7KB)
----Unit1.~ddp(51B)
----Unit1.dfm(73KB)
----Project1.cfg(434B)
----Desktop_.ini(9B)
----Project1.dpr(188B)
----Unit1.~dfm(73KB)
----Project1.exe(724KB)
----Project1.dof(3KB)
----Unit1.~pas(3KB)
----Unit1.pas(3KB)