Преобразование HEX в Integer - Статьи и обзоры

20.04.2024 - Преобразование HEX в Integer

Рассмотрим два способа преобразования 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.

Опубликовано на сайте: http://www.coders-library.ru
Прямая ссылка: http://www.coders-library.ru/index.php?name=news&op=view&id=3