Советы по Delphi
Разбиение шестнадцатиричной величины
| Function LoNibble ( X : Byte ) : Byte;BeginResult := X And $F;End; Function HiNibble ( X : Byte ) : Byte;BeginResult := X Shr 4;End; |
Приведенные функции разделят ваше число на две половинки, нижнюю и верхнюю. Если вам необходимо отображать их с ведущим нулем, то используйте IntToHex подобным образом:
| Label1.Caption := 'Верхняя часть - ' + IntToHex ( HiNibble ( $2E ), 2 ); Label2.Caption := 'Нижняя часть - ' + IntToHex ( LoNibble ( $2E ), 2 ); |
- Robert Wittig [000849]
