任意进制（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;