Преобразование десятичного числа в шестнадцатиричное 2
function dec2hex(value: dword): string[8];
const
hexdigit = '0123456789ABCDEF';
beginwhile value <> 0 dobegin
dec2hex := hexdigit[succ(value and $F)];
value := value shr 4;
end;
if dec2hex = '' then dec2hex := '0';
end;
Статья Преобразование десятичного числа в шестнадцатиричное 2 раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal.
