delphi - バイトの上位4ビットを取得

Question

の上位4ビットを取得しようとしていByteます。

これが私のこれまでの試みです。

function Upper4Bits(const X : Byte): Byte;
type 
   BS = set of 0..7;
var 
   K : Byte; Q: BS;
begin
  Q := [];
  for K := 0 to 3 do {is it right? upper?}
    {what i need here?}
    Include(Q, {what i put here});

  Upper4Bits := Byte(Q)
end;

前もって感謝します。

Answer 1

kotlinskiの答えに対するあなたのコメントによると、あなたは欲しいですresult := (byte1 and $F0) or (byte3 and $0F)。

Answer 2

Answer 3

どうUpper4Bits := X Shr 4;ですか？