Работа с шестнадцатиричными числами.

[weintrauber]

Мне нужно перевести целое число из шестнадцатиричной в десятичную.

Я знаю, что для перевода числа в шестнадцатеричную есть функция IntToHex() из модуля Sysutils.hpp.

А есть обратная ей - из десятичной в шестнадцатиричную? Или придётся самому реализовывать алгоритм?

[RUSt88]

это легко реализуется
(написано на делфи)

// возводим в степень step любое число value
function stepen(value: integer; step: Byte): Integer;
var
  i, res: Integer;
begin
  if step = 0 then begin // если степень 0, то результат 1
    Result := 1;
  end
  else if step = 1 then begin // если степень 1, то результат само число
    Result := value;
  end
  else begin
    res := value;
    for i := 2 to step do begin // каков размер степени, столько раз и умножаем число
      res := res * value;
    end;
    Result := res; // возвращаем результат
  end;
end;

// функция возвращает десятичное число из двоичного представления
function BinToDec(s: string): Integer;
var
  i, res, j: Integer;
begin
  res := 0;
  j := 0;
  // алгоритм такой:
  // 0110 = 0 * 2^3 + 1 * 2^2 + 1 * 2^1 + 0 * 2^0
  // т.е. берем строку и считаем каждый символ слева направо умножая его на 2 в степени, соответст положению символа в строке, считая что положение последнего символа равно 0
  for i := Length(s) - 1 downto 0 do begin 
    Inc(j);
    res := res + StrToInt(s[j]) * stepen(2, i);
  end;
  Result := res;
end;

// функция возвращает десятичное число из шестнадцатиричного представления
function HexToDec(s: string): Integer;
var
  i, j, res: Integer;
// здесь идет вложение функции в функцию
function CharToByte(c: Char): Byte; // функция возвращает из hex-буквы соответств ей число, напр A = 10, F = 16 и т.д.
var
  i: Integer;
begin
  case c of
    'A', 'a': Result := 10; // без разницы маленькие буквы будут или большие
    'B', 'b': Result := 11;
    'C', 'c': Result := 12;
    'D', 'd': Result := 13;
    'E', 'e': Result := 14;
    'F', 'f': Result := 15;
  else
    Result := StrToInt(c); // если число, то ничего не меняем
  end;
end;
begin
  res := 0;
  j := 0;
  for i := Length(s) - 1 downto 0 do begin // цикл по строке с шестнадатиричным числом
    Inc(j);
    // алгоритм тот же, что и BinToDec, только умножаем не на 2, а на 16 в нужной степени
    res := res + CharToByte(s[j]) * stepen(16, i); 
  end;
  Result := res; // возвращаем результат
end;

[Пепел Феникса]

на Делфи можно было использовать IntToStr
попробуйте и тут

[weintrauber]

Меня интересовало именно наличие подобной библиотечной функции. Как я понял такой функции нет. Но все равно, спасибо.

[pproger]

А есть обратная ей - из десятичной в шестнадцатиричную? Или придётся самому реализовывать алгоритм?

sprintf .

[netrino]

Можно ещё strtol, только она возвращает long int(что, впрочем, не отличается от int на 32-х битных осях)

long int i = strtol("0x10", 0, 16); // 16 - основание сис-мы счисления. 0x в строке может отсутствовать