delphi如何直接操作16进制?

Question

我有一个WORD类型的数组
想整体赋值为16进制的数:
 0x0000, 0x1189, 0x2312, 0x329b, 0x4624, 0x57ad, 0x6536, 0x74bf
该如何操作??如果赋值成功了,由于运算的必要,怎样把上面数组的每个元素 与 上一个0x00ff

Answer 1

const
   fcstab : array [0..7] of word =(
   $0000, $1189, $2312, $329b, $4624, $57ad, $6536, $74bf);与 上一个0x00ff 有移位操作 shl

Answer 2

var
  a:array[0..6] of word=($0000,$1189,$2312,$329b,$57ad,$6536,$74bf);注：全局变量才能在定义时就赋值在Delphi中，用and来进行“与”操作。