Büyük Sayılarla Çalışmak

[narkotik]

(02-09-2018, Saat: 21:06)masteryoda Adlı Kullanıcıdan Alıntı: https://github.com/rvelthuis/DelphiBigNumbers
buraya bir göz atın.

Aslında bana string olarak lazım sonuç. Sadece bir convert için bu kadar pası projeye eklemek ne kadar mantıklı

---

Çok basit bir hata yaptığımı farkettim sonucu int64 yapıp ara değişkenleri integer yaptığım için patlıyomuşum.
Herkese iyi akşamlar Saygılar.

function HexToDec(Str: string): int64  ;
var
 i, M: int64;
begin
 Result:=0;
 M:=1;
 Str:=AnsiUpperCase(Str);
 for i:=Length(Str) downto 1 do
 begin
   case Str[i] of
     '1'..'9': Result:=Result+(Ord(Str[i])-Ord('0'))*M;
     'A'..'F': Result:=Result+(Ord(Str[i])-Ord('A')+10)*M;
   end;
   M:=M shl 4;
 end;
end;