delphi absolute 应用实例

procedure TForm1.Button1Click(Sender: TObject);

var

i1,i2:Integer;

b:array [0..3] of Byte absolute i1; // b 在这里跟 i1 共用地址

begin

i1 := 1234;

i2 := MakeLong(MakeWord(b[0],b[1]),MakeWord(b[2],b[3]));

// 在内存中i1其实是反过来存储，

// 普通情况表达一个数字是“高位+低位”，而内存中是“低位+高位”的表达方式

// MakeXXX 函数就是实现了这种变化

if i1 = i2 then

ShowMessage('确认');

end;