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

Previous  Top  Next

    
 

 

Code:

Function LoNibble ( X : Byte ) : Byte;

Begin

Result := X And $F;

End;

 

Function HiNibble ( X : Byte ) : Byte;

Begin

Result := X Shr 4;

End;

 

 

 

 

 

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

 

 

Code:

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

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

 

©Drkb::04062

http://delphiworld.narod.ru/

DelphiWorld 6.0