Процедура преобразования Bin в Hex на Delphi

Уважаемые слушатели моего курса по DelphiLevel1 , я сейчас спохватился, что для домашнего задания вашего первого урока этого уровня (создание многофункционального калькулятора с использованием компонентов и подпрограмм) не дал вам код подпрограммы для конвертирования двоичных чисел в 16 ричные. Я разослал код всем подписчикам, однако для тех, кто по какой-то причине не получил этот код, выкладываю его на блоге:


procedure BinToHex(Binary, Text: PChar; Count: Integer);
const
HexChars: array[0..15] of Char = '0123456789ABCDEF';
var
I: Integer;
begin
for I := 0 to Count - 1 do
begin
Text^ := HexChars[(Byte(Binary[I]) and $F0) SHR 4];
Inc(Text);
Text^ := HexChars[(Byte(Binary[I]) and $0F)];
Inc(Text);
end;
end;

Не бойтесь отсутствия комментариев. Здесь используется встроенная функция HexChars, оператор логического сдвига вправо SHR и функция инкремента (Inc). Более подробно, кто не разобрался, мы разберем подобные функции в следующих уроках. Кроме того, не забывайте задавать мне вопросы в вебинаре.

Комментарии

2 комментария на “Процедура преобразования Bin в Hex на Delphi”
  1. Hann:

    А как называется этот вид программирования Bin и Hex ?
    И какие книги посоветуете почитать для изучения?

  2. admin:

    Вообще не понял вопрос.

Добавить комментарий

Внимание! Не будут добавляться комментарии в виде откровенного спама или прямого анкора на свои сайты. Все спамеры будут передаваться в базу Akismet

Подтвердите, что Вы не бот — выберите человечка с поднятой рукой: