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

Материал из 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