Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Преобразования » Из десятичного представления в шестнадцатеричное

Из десятичного представления в шестнадцатеричное

Автор: Борисов Сергей

Function IntToHex(x:integer):string;
Var S:string;
begin
  result:='';
  while (x div 16)<>0 do begin
      S:=intToStr(x mod 16);
      x:=x div 16;
      Case strToInt(S) of
          0..9: insert(S, result, 1);
          10: insert('A', result, 1);
          11: insert('B', result, 1);
          12: insert('C', result, 1);
          13: insert('D', result, 1);
          14: insert('E', result, 1);
          15: insert('F', result, 1);
      end;
  end;
  S:=intToStr(x mod 16);
      Case strToInt(S) of
          0..9: insert(S, result, 1);
          10: insert('A', result, 1);
          11: insert('B', result, 1);
          12: insert('C', result, 1);
          13: insert('D', result, 1);
          14: insert('E', result, 1);
          15: insert('F', result, 1);
      end;
end;

А можно значительно проще: использовать функцией IntToHex из модуля SysUtils.

Флеш игры автоматы

Интернет-казино. Тематическая коллекция flash-мультфильмов и игр.

casino-all.info
Клетки для кроликов фото

О доставке. Бесплатный хостинг фотографий без ограничений по объему.

magazindoberman.ru

Просмотров: 1840

Обсудить на форуме