如何将十进制字符串的基数转换为另一个基数?

时间:2013-10-25 20:10:26

标签: delphi delphi-7

这是我的代码;

{Sayitabani=orginal base, SonucTabani=result-converted base}
function SayiCevir(Sayi:String;const SayiTabani,SonucTabani:Word):String;
 function ChToRkm(const C:Char):Byte;
 var B:Byte absolute C;{c ile b aynı adresteki değişkenlerdir. c:='B' olursa b değeri 66 olur veya b:=65 olursa c değeri 'A' olur}
 begin
   if C>='A' then Result:=B-55 else Result:=B-48;
 end;
 function RkmToCh(B:Byte):Char;
 var C:Char absolute B;
 begin
   if B>9 then B:=B+55 else B:=B+48;
   Result:=C;
 end;
const AltSinir=1; UstSinir=35;
var i,j:Integer; fSayi,Basamak:Int64;
begin
  //if (SayiTabani=SonucTabani) then Result:=Sayi else
  if (SayiTabani<=AltSinir) or (SonucTabani<AltSinir) or (SayiTabani>UstSinir) or (SonucTabani>UstSinir) then
   raise Exception.CreateFmt('%d tabanındaki sayı %d tabanına çevrilmek isteniyor fakat desteklenen taban aralığı %d-%d''dir.',[SayiTabani,SonucTabani,AltSinir,UstSinir])
  else begin
    Sayi:=UpperCase(Trim(Sayi));
    fSayi:=0;Basamak:=1;
    for i:=Length(Sayi) downto 1 do begin
      j:=ChToRkm(Sayi[i]);
      if j>=SayiTabani then raise Exception.CreateFmt('%s sayısı %d tabanlı bir sayı değildir.',[Sayi,SayiTabani]);
      fSayi:=fSayi+(j*Basamak);
      Basamak:=Basamak*SayiTabani;
    end;
    Result:='';
    if fSayi=0 then Result:='0'
    else while fSayi>0 do begin
      Result:=RkmToCh(fSayi mod SonucTabani)+Result;
      fSayi:=fSayi div SonucTabani;
    end;
  end;
end;

我使用此代码将数字基数转换为其他基数。此代码正常工作,但数量长度有限制。例如,

I convert:

String:=SayiCevir('123456789',10,11); //Thats OK.

If I wrote:

String:=SayiCevir('12345678912345678998765432101234569870',10,11); //FAIL!!

第二个代码不起作用,不返回任何结果。所以; 如何将“LONG”整数字符串的基数转换为其他基数?我认为问题是字符串的长度?正确?

1 个答案:

答案 0 :(得分:1)

你问题是Delphi中的最大整数大小。

MaxInt = 2147483647

MaxInt64 = 9223372036854775807

您的电话号码= 12345678912345678998765432101234569870

所以它绝对超出了Delphi所能做的。

您可能需要使用BigInt。

http://sourceforge.net/projects/bigint-dl/