Dec2Hex (без огpаничения на вводимое число)?
A. (Akzhan Abdulin 2:5040/55)
----------------------------------------------------------------------------
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;
