如何把两个Byte拼成一个word

Question

Delphi 有个TBit类。用于位操作。不过帮助里找不到。是个未公布的类。
你可以用Code Insight来学习它。不是多困难。

Answer 1

什么意思?
var
  a1,a2 : byte;
  b : word;
begin
  a1 := 1;
  a2 := 0;
  b := word(a1) shl 8 + a2;
  showMessage(inttostr(b));
end;
  这样可对?

Answer 2

晕倒：
function MergeByte(HighByte,LowByte:Byte):word;
begin
  wordrec(Result).lo:=LowByte;
  wordRec(Result).Hi:=HighByte;
end;