Разбиение шестнадцатиричной величины

Delphi , Синтаксис , Математика

Автор: Robert Wittig

Function LoNibble ( X : Byte ) : Byte;
Begin
  Result := X And $F;
End;

Function HiNibble ( X : Byte ) : Byte;
Begin
  Result := X Shr 4;
End;

Приведенные функции разделят ваше число на две половинки, нижнюю и верхнюю. Если вам необходимо отображать их с ведущим нулем, то используйте IntToHex подобным образом:

Label1.Caption := 'Верхняя часть - ' + IntToHex ( HiNibble ( $2E ), 2 );
Label2.Caption := 'Нижняя часть - ' + IntToHex ( LoNibble ( $2E ), 2 ); 

Программный код на Delphi определяет две функции - LoNibble и HiNibble, которые принимают байтовое значение в качестве входного параметра и возвращают соответственно нижнюю и верхнюю нибблы (4-битные значения).

Функция LoNibble использует операцию побитового "И" с константой hexadecimal $F (равной 15 в десятичном формате) для получения нижней нибблы. Результат - байтовое значение, представляющее собой нижние 4 бита входного значения.

Функция HiNibble использует оператор побитового сдвига вправо (Shr) с шагом 4 для перемещения бит входного значения на 4 позиции вправо, эффективно получая верхнюю нибблу.

Затем код использует эти функции для разделения hexadecimal-значения $2E на его нижнюю и верхнюю нибблы и отображает их в двух метках. Функция IntToHex используется с вторым аргументом 2 для форматирования результата как 2-х значного строкового представления hexadecimal.

Результат работы:

1. LoNibble($2E) возвращает нижнюю нибблу $2E, равную $E.
2. HiNibble($2E) возвращает верхнюю нибблу $2E, равную $2.

Таким образом, Caption Label1 будет установлен на 'Верхняя часть - 2' и Caption Label2 будет установлен на 'Нижняя часть - E'.

В статье описывается две функции на языке Паскаль, LoNibble и HiNibble, которые разделяют шестнадцатиричную величину на нижнюю и верхнюю половинки.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Математика ::