БОЛЬШОЙ FAQ ПО DELPHI



Преобразование десятичного числа в шестнадцатиричное 2


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ