delphi 中absolute

对于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 这个变量就可以了