Функция перевода в hex

[Трава]

Народ, помогите с функцией перевода десятичного числа в шестнадцатеричное! Охота hex-редатор написать, а сам без понятия как функцию реализовать.

[ViNT]

Для этого есть Lib_hexdec.

[Трава]

Пасяб Ну терь точно можно приступать к написанию редактора.

[Трава]

Ха! Обрадовался! Разработчику библеотек тех трёх явно не помешало бы мануалы к ним засовывать... Я канеш из исходника команду понял, но MP пишет "error in argument 1". Чё делать, блин?

[Tronix]

Один из первых запросов в гугл:

function IntToHex(IntValue, Digits: integer): string;  
var  
  i, j: integer;  
  s: string;  
begin  
  s := '';  
  if IntValue > 0 then  
  begin  
    i := IntValue;  
    while i>0 do  
    begin  
      j := i mod 16;  
      if (j<10) then  
        s := Chr(Ord('0') + j) + s;  
      else  
        s := Chr(Ord('A') + (j - 10)) + s;  
      i := i div 16;  
    end;  
  end;  
  if Digits < 1 then Digits := 1;  
  i := Digits - Length(s);  
  while i>0 do  
  begin  
    s := '0' + s;  
    i := i - 1;  
  end;  
  IntToHex := s;  
end; 


[Трава]

Терь точно пашет Благодарю