Dec → Hex

Материал из DRKB

Dec ---> Hex[править | править код]

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;


Source: Взято с http://delphiworld.narod.ru
ID: 00220