Подписаться на RSS рассылку
Главная » Статьи по 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.

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

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


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

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

e-mail: save-x@yandex.ru

Связь с администрацией сайта