Перевод из одних систем счисления в другие
Страница 5. Перевод из десятичной в шестнадцатиричную

Перевод из десятичной в шестнадцатиричную 

function dec2hex(value: dword): string[8];
const
 hexdigit = '0123456789ABCDEF';
begin
 while value != 0 do
 begin
 dec2hex := hexdigit[succ(value and $F)];
 value := value shr 4;
 end;
 if dec2hex = '' then dec2hex := '0';
end;