Советы по Delphi


Conversions1


HEX -> Integer

Решение 1

    var
i : integer s : string; begin
s := '$' + ThatHexString; i := StrToInt(a); end;

Решение 2

    CONST HEX : ARRAY['A'..'F'] OF INTEGER = (10,11,12,13,14,15);
VAR str : String;
Int, i   : integer; BEGIN
READLN(str); Int := 0; FOR i := 1 TO Length(str) DO IF str[i] < 'A' THEN Int := Int * 16 + ORD(str[i]) - 48 ELSE Int := Int * 16 + HEX[str[i]]; WRITELN(Int); READLN; END.
[000001]




Начало    Вперед



Книжный магазин