delphi - 将 SmallInt 常量定义为十六进制

Question

我需要定义一个具有十六进制值的 SmallInt 常量。以某种方式像这样:

const
  a: SmallInt = $8000;

当然，$8000 值违反了 SmallInt 的子范围边界。我知道并且故意这样做。实际上，我需要将此文字按位传输为 16 位有符号整数。

如果它是一个变量，我可以使用 absolute 关键字:

var
  a_prototype: Word;
  a: SmallInt absolute a_prototype;
begin
  a_prototype := $8000;

但它应该是一个常数。

Answer 1

使用强制转换

const
  a = SmallInt($8000);

如果您需要类型常量，那么它就是

const
  a: SmallInt = SmallInt($8000);