artykuły

Jak skonwertować liczbę z systemu szesnastkowego na system dziesiętny?

10:13
Wed, 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.
    Dexter