一个变量类型转换的问题

Question

type
TByteRec = record
Lo, Hi: Byte;
end;
TWordRec = record
Low, High: Word;
end;var
B: Byte;
W: Word;
L: Longint;
P: Pointer;begin
W := $1234;
B := TByteRec(W).Lo;
TByteRec(W).Hi := 0;
L := $1234567;
W := TWordRec(L).Low;
B := TByteRec(TWordRec(L).Low).Hi;
B := PByte(L)^;
end;begin第二行，B := TByteRec(W).Lo，一个Word类型的变量怎么可以转换成record类型？？？而且TByteRec也没有声明成一个变量啊。

Answer 1

我记得在delphi5之后，record采用了package record,也就是说，记录内容采用紧缩的存储，4各字节内容存储在一个32位中。
上面2个byte的record内容等于一个word内容，2个word的record内容等于一个longint.所以你可以使用强制类型变换将word转换为TByteRec.同理，一个TByteRec也可以转换为一个word