delphi - 将2个字节转换为小整数

Question

我需要从2个字节中生成一个小的整数数据类型，我的代码失败
结果= 0

function BytestoSmallInt(B0, B1: Byte): SmallInt;
var
  Number: SmallInt;
  pointer : ^SmallInt;
  small: array [0 .. 1] of Byte absolute Number;
begin
  pointer := @Number;
  small[0] := B1;
  small[1] := B0;
  Result := pointer^;
end;

Answer 1

我无法重现您描述的问题。您显示的代码对我来说很好用。

但是，您根本不需要pointer变量：

function BytesToSmallInt(B0, B1: Byte): SmallInt;
var
  Number: SmallInt;
  small: array [0 .. 1] of Byte absolute Number;
begin
  small[0] := B1;
  small[1] := B0;
  Result := Number;
end;

您甚至还可以摆脱数组：

function BytesToSmallInt(B0, B1: Byte): SmallInt;
begin
  Result := (Smallint(B0) shl 8) or B1;
end;