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

Автор: 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 );

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 634 • TDictionary Custom Sort 6 641 • Fast Watermark Sources 6 418 • 3D Designer 9 359 • Sik Screen Capture 6 746 • Patch Maker 7 135 • Айболит (remote control) 7 142 • ListBox Drag & Drop 6 003 • Доска для игры Реверси 97 588 • Графические эффекты 7 333 • Рисование по маске 6 620 • Перетаскивание изображений 5 490 • Canvas Drawing 5 867 • Рисование Луны 5 592 • Поворот изображения 5 100 • Рисование стержней 3 669 • Paint on Shape 2 898 • Генератор кроссвордов 3 798 • Головоломка Paletto 3 051 • Теорема Монжа об окружностях 3 860 • Пазл Numbrix 2 542 • Заборы и коммивояжеры 3 253 • Игра HIP 2 224 • Игра Go (Го) 2 156 • Симулятор лифта 2 535 • Программа укладки плитки 2 175 • Генератор лабиринта 2 673 • Проверка числового ввода 2 324 • HEX View 2 659 • Физический маятник 2 290

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

Похожие по теме исходники