Процедура преобразования 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). Более подробно, кто не разобрался, мы разберем подобные функции в следующих уроках. Кроме того, не забывайте задавать мне вопросы в вебинаре.

Яндекс.Метрика