Конвертер DEC2HEX и обратно

[dmites]

Понадобилась работа с числами в шестнадцатеричной системе.
Никто не писал подобное ?

[Cheb]

Да, приходилось писать. Вот один из вариантов реализации:

HexToDec(HexValue : Text[30]) Res : Integer
n := 1;
FOR i := STRLEN(HexValue) DOWNTO 1 DO BEGIN
  Ch := HexValue[i];
  IF Ch <=57 THEN
    Ch -= 48
  ELSE
    Ch -= 55;

  Res += Ch * n;
  n *= 16;
END;

Ну а обратно, соответственно, обратный алгоритм