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 這個變數就可以了