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

 

你可能感兴趣的:(delphi,string,byte,文档)