对于delphi中的absolute，其实用到的机会很少，只有一次看公司的代码文档时见到了，当时大牛们还特意问了一下，不过当时觉得应该就是使用的同一块内存，但是今天看了万一老师的博客之后还是感受颇深的，看来不仅仅是共性同一块内存那么简单。
特意引用一下例子：
procedure TForm1.FormCreate(Sender: TObject);
var
num: Int64;
pt: TPoint absolute num;
arr: array[0..1]of
Integerabsolute pt;
begin
pt.X := 111;
pt.Y := 222;
ShowMessageFmt('%d, %d', [arr[0],
arr[1]]); {111, 222}
ShowMessageFmt('%d, %d', [numshl32shr32,
numshr32]);{111,
222}
end;
这三个值，num、pt、arr通过absolute的关系都指向了一快内存区域，在一个量的之变化之后，其他的值也发生了变化。
另外这种用法还是第一次见，也可能是我还不太了解，与大家分享一下：
var
Str: string[32];
StrLen: Byte absolute Str;
这里用一下absolute的目的是,以后需要取 Str 变量的实际长度时, 不需要再调用函数,直接取 StrLen 这个变量就可以了
