Jak skonwertować liczbę z systemu szesnastkowego na system dziesiętny?
10:13Wed, 3 January 2007 Spróbuj zastosować taką pętlę:
For z := Length(liczba)-1 Downto 0 Do
Begin
If liczba[z+1] = 'A' Then
buff := buff + (10 * Power(16,x))
else
If liczba[z+1] = 'B' Then
buff := buff + (11 * Power(16,x))
else
If liczba[z+1] = 'C' Then
buff := buff + (12 * Power(16,x))
else
If liczba[z+1] = 'D' Then
buff := buff + (13 * Power(16,x))
else
If liczba[z+1] = 'E' Then
buff := buff + (14 * Power(16,x))
else
If liczba[z+1] = 'F' Then
buff := buff + (15 * Power(16,x))
else
buff := buff + StrToInt(liczba[z+1]) * Power(16,x);
Inc(x);
end;
Result := FloatToStr(buff);
Póki co brak pytań w FAQ.Skomentuj
Aby zamieścić komentarz, proszę włączyć JavaScript - niestety roboty spamujące dają mi niezmiernie popalić.
Komentarze czytelników
Nie ma jeszcze żadnych komentarzy.