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

[uparlayan]

Aşağıdaki linki inceleremisin,

https://stackoverflow.com/questions/1457...-delphi-xe

[ssahinoglu]

Hex dönüşümü için başına $ ekleyip stringe çevirebilirsin.

function HexSayi(h:string):Cardinal;
begin
  result := strtoint('$'+h);
end;

[narkotik]

(02-09-2018, Saat: 23:23)uparlayan Adlı Kullanıcıdan Alıntı: Aşağıdaki linki inceleremisin,

https://stackoverflow.com/questions/1457...-delphi-xe

Bu derleyici hatası XE4 sürümünde çözüldü yazıyor.

---

(02-09-2018, Saat: 23:50)ssahinoglu Adlı Kullanıcıdan Alıntı: Hex dönüşümü için başına $ ekleyip stringe çevirebilirsin.

function HexSayi(h:string):Cardinal;
begin
  result := strtoint('$'+h);
end;

Algoritmayı değiştirerek zaten çözdüm olayı da kaydırmanın mobilde bozması kafamı karıştırdı.

[Kush01]

(02-09-2018, Saat: 21:01)narcotic Adlı Kullanıcıdan Alıntı: Hello,
I am doing HexToDec operation. But the incoming hex. number is too big, which causes the result to be returned as -. What should be done in such cases?

function HexToDec(Str: string): LongInt; 
var 
 i, M: Integer; 
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;

Hex state = 9a2929c7

You can convert hex value 9a2929c7 to decimal through this online hex to decimal converter