delphi absolute 应用实例

procedure TForm1.Button1Click(Sender: TObject);
var
  i1,i2:Integer;
  b:array [..] of Byte absolute i1; // b 在这里跟 i1 共用地址
begin
  i1 := ;
  i2 := MakeLong(MakeWord(b[],b[]),MakeWord(b[],b[]));
  // 在内存中i1其实是反过来存储，
  // 普通情况表达一个数字是“高位+低位”，而内存中是“低位+高位”的表达方式
  // MakeXXX 函数就是实现了这种变化
  if i1 = i2 then
    ShowMessage('确认');
end;