Contributor: CORY ALBRECHT
{ Updated NUMBERS.SWG on November 2, 1993 }
{
CORY ALBRECHT> Can someone please show me how I would convert a base 10 number to> base 36? (The one used by RIP)
I presume you mean turning a Variable of Type Byte, Word, Integer, or
LongInt to a String representation of that number in base 36? Just checking,
since once I had someone who had two Word Variables who asked me how they
could change Word1 to hexadecimal For putting it in Word2. The following
code will turn any number from 0 to 65535 to a String representation of
that number in any base from 2 to 36.
}
Unit Conversion;
Interface
Const
BaseChars : Array [0..35] Of Char = ('0', '1', '2', '3', '4', '5',
'6', '7', '8', '9', 'A', 'B',
'C', 'D', 'E', 'F', 'G', 'H',
'I', 'J', 'K', 'L', 'M', 'N',
'O', 'P', 'Q', 'R', 'S', 'T',
'U', 'V', 'W', 'X', 'Y', 'Z');
{ n - number to convert
b - base to convert to
s - String to store result in }
Procedure NumToStr(n : Word; b : Byte; Var s);
Implementation
Procedure NumToStr(n : Word; b : Byte; Var s);
Var
i,
res,
rem : Word;
begin
s := '';
if ((b < 2) or (b> 36)) Then
Exit;
res := n;
i := 1;
{ Get the digits of number n in base b }
Repeat
rem = res MOD b;
res := res div b;
s[i] := BaseChars[rem - 1];
Inc(s[0]);
Until rem = 0;
{ Reverse s since the digits were stored backwards }
i := 1;
Repeat
s[i] := Chr(Ord(s[i]) xor Ord(s[Length(s) - (i - 1)]));
s[Length(s) - (i - 1)] := Chr(Ord(s[Length(s) - (i - 1)]) xor Ord(s[i]));
s[i] := Chr(Ord(s[i]) xor Ord(s[Length(s) - (i - 1)]));
Inc(i);
Until i>= (Length(s) - (i - 1));
end;
end.