delphi - 如何在Delphi中将2个字节转换为一个16位数字？

Question

所以我有2个字节，例如:13, 61

我想把它们转换成16位的:3389

现在我正在使用这个函数:

function IntPower(const N, k: integer): integer;
var
  i: Integer;
begin
  Result:= (256 * N) + k;
end;

有没有更好的方法可以在 Delphi 上执行此操作？

Answer 1

两种选择是

function CreateWord(const A, B: byte): word;
begin
  result := word(A) shl 8 or B;
end;

和

function CreateWord(const A, B: byte): word;
var
  WR: WordRec;
begin
  WR.Hi := A;
  WR.Lo := B;
  result := word(WR);
end;