تبدیل مبناها

[آبجی]

تبدیل مبناها

کد:

Type
  TBaseRange=2..32;
Const
  sDigits='0123456789ABCDEFGHIJKLMNOPQRSTUV';
Function IntToAnyBase(num:int64;Base:TBaseRange):string;
var
  tmp1,tmp3:int64;
  str:string;
begin
  str:='';
  tmp3:=num;
  repeat
    tmp1:=tmp3 mod Base;
    tmp3:=tmp3 div Base;
    str:=copy(sDigits,tmp1+1,1)+str;
  until not(tmp3<>0)       ;
  Result:=str;
end;

Function AnyBaseToInt(num:string;Base:TBaseRange):int64;
var
  sum:int64;i:longint;
  token:string;
begin
  sum:=0;
  for i:=1 to length(num) do begin
    token:=uppercase(num[i]);
    sum:=Base*sum+(pos(token,sDigits)-1);
  end;
  result:=sum;
end; 

__________________