任意进制（2-36内)与十进制间的转换

const
DD='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

function DecimalToStr(n :Integer;jz :Byte):string;
var
m:Integer;
begin
Result :='';
while (n>jz) and (jz>1) do begin
m := n mod jz;
n := n div jz;
Result := DD[m+1] + Result;
end;
Result :=  DD[n+1] + Result;
end;

function StrToDecimal(s :string;jz:Byte):Integer;
//返回一个基础数B的E次方
function IntPower(b,e:Integer):Integer;
var
i :Integer;
begin
Result := 1;
for I := 1 to e do
Result := Result * b;
end;
var
I,L:Integer;
begin
Result :=0;
s := UpperCase(s);
L := Length (s);
for I := 1 to L do
Result := Result +(Pos(s[L-I+1],DD) - 1) * IntPower(jz,i - 1);
end;