Разбиение шестнадцатиричной величины
Материал из DRKB
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);
Source: http://delphiworld.narod.ru/
ID: 04062