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;