看一個指針用法的例子：
1 var
2 X, Y: Integer; // X and Y 整數(shù)類型
3 P: ^Integer; // P 指向整數(shù)類型的指針
4 begin
5 X :=17; // 給 X 賦值
6 P := @X; // 把 x的地址賦給p
7 Y := P^; // 取出p所指向的數(shù)值賦給y
8 end;
第二行定義了兩個變量X,y. 第三行聲明了p是指向整數(shù)類型的指針;意味著p能夠指向x或者y的地址.第五行賦給x值,第六行把x的地址賦給p.最
后通過p指向的變量賦值給y.此時,x和y有相同的值.
操作符@用來取出變量的地址,也可以取出過程和函數(shù)的地址.
而符號^有兩個目標,
當它出現(xiàn)在類型定義的前面時如 ^typename 表示指向這種類型的指針;
當它出現(xiàn)在指針變量后邊時 如 point^ 返回指針指向的變量的值;
理解指針比較容易理解面向對象的pascal語言,因為指針經(jīng)常在幕后操作.任何要求動態(tài)分配大的內(nèi)存空間的類型可以用指針類型.例如
,long-string變量,實際在使用指針進行操作.另外一些高級的編程技術需要使用指針類型.
有時指針是適應object pascal嚴格的類型限制的唯一方法.同過一個通用的指針類型,通過類型轉換成不同的指針類型,如下面的例子:
type
PInteger = ^Integer;
var
R: Single;
I: Integer;
P: Pointer; //通用的指針
PI: PInteger;
begin
P := @R; //取出R的內(nèi)存地址
PI := PInteger(P); //把通用類型轉換成指向整數(shù)類型的指針
I := PI^;
end;
當然了,實數(shù)和整數(shù)的存儲格式不同.這種賦值是把原始的二進制數(shù)據(jù)從R拷貝到I,而不進行轉換.
保留字nil是一個特殊的常量可以賦給任何指針類型,當nil賦給一個指針時,指針什么也不指向,是一個空指針.
@操作符返回變量的內(nèi)存中的存儲地址,或者是過程\函數(shù)\方法;
1.如果變量,@X返回的是x的地址。如果編譯選項{$T-}沒有打開,著返回的事一個通用的指針,如果編譯選項打開了,著返回的是x的類型對應的指
針.
2.如果是例程(過程\函數(shù)),@F返回的是F的入口點，@F的類型是一個指針。
3.當@用在類的方法中時,則方法的名稱必須有類名,例如@TMyclass.Dosomething
指針指向TMyclass的dosomething方法。
當一個過程變量在賦值語句的左邊時，編譯器期望一個過程值在賦值語句的右邊。這種賦值使得左邊的變量可以指向右邊定義的過程或者函數(shù)
入口點。換句話說，可以通過該變量來引用聲明的過程或者函數(shù)，可以直接使用參數(shù)的引用。
var
F: function(X: Integer): Integer;
I: Integer;
function SomeFunction(X: Integer): Integer;
...
F := SomeFunction; // 給f賦值
I := F(4); // 調用所指向的函數(shù)
在賦值語句中，左邊變量的類型決定了右邊的過程或者方法指針解釋。
var
F, G: function: Integer;
I: Integer;
function SomeFunction: Integer;
...
F := SomeFunction; // 給f賦值
G := F; // 把F的值拷貝給G
I := G; // 調用函數(shù)
第一句獲得函數(shù)的入口，第二句將指針復制，第三句獲得函數(shù)的返回值。
有時候還可以這樣使用
if F = MyFunction then ...;
在這里，F(xiàn)的出現(xiàn)導致一個函數(shù)調用；編譯器調用F指向的函數(shù)，然后調用Myfunction，比較結果。這個規(guī)則是無論何時一個過程變量（
procedural variable）出現(xiàn)在一個表達式中，它表示調用所指向的函數(shù)或者過程。有時F指向一個過程（沒有返回值），或者f指向一個需要參
數(shù)的函數(shù)，則前面的語句會產(chǎn)生一個編譯錯誤。要比較F和Myfunction需要用
if @F = @MyFunction then ...;
@F把F轉換成一個包含地址的無類型的指針變量,@myfunction返回myfunction的地址。
獲得一個過程變量的內(nèi)存地址使用@@。例如，@@F返回F的地址。
@操作符通常把一個無類型的指針值賦給一個過程變量，例如：
var StrComp: function(Str1, Str2: PChar): Integer;
...
@StrComp := GetProcAddress(KernelHandle, ‘lstrcmpi‘);
調用GetProcAddres函數(shù),用strcomp指向這個值
任何過程變量可以賦成nil，表示指證什么也不指向。但是試圖調用一個nil值的過程變量導致一個錯誤，為了測試一個過程變量是否可以賦值 ，用標準的賦值函數(shù)Assigned
if Assigned(OnClick) then OnClick(X);
