delphi 共享变量（Absolute Address）

共址变量是这样一种变量：声明时可以将其与其它的某个变量相绑定，绑定后二个变
量在内存中存储位置的起始地址相同。声明共址变量的格式为

var
  v1:type1 absolute v2;

 

其中v2是一个声明过的变量。程序在编译时会将v1与v2的起始地址设置为相同位置。我
们以一个例子来说明：

 

program ShareAddress;{$APPTYPE CONSOLE}{$R *.res}uses  System.SysUtils;var  c:AnsiChar;  i:Byte absolute c;  str:WideString;  leng:byte absolute str;begin  try    c:='A';    Writeln(i);    str:='stringlength';    Writeln(leng);    readln;  except    on E: Exception do      Writeln(E.ClassName, ': ', E.Message);  end;end.

上例中i被声明成变量c的共址变量，这样一来变量i与变量c将在内存中的起始位置相
同。i在内存中占用一个字节，当攻取i的值时，系统会将变量c的第一个字节的值当成
是i的值，而c中第一个字节的值是字符‘A’，故i的值为65,leng的值为字符串str的第一个字节的值(即为字符串的长
度)