delphi指針簡單入門

delphi指針簡單入門:   
    
  看一個指針用法的例子：   
  1         var   
  2             X,   Y:   Integer;       //   X   and   Y   整數類型   
  3             P:   ^Integer;           //   P   指向整數類型的指針   
  4         begin   
  5             X   :=17; //   給   X   賦值   
  6             P   :=   @X;                   //   把   x的地址賦給p   
  7             Y   :=   P^;                   //   取出p所指向的數值賦給y   
  8         end;   
    
  第二行定義了兩個變量X,y.   第三行聲明瞭p是指向整數類型的指針;意味着p可以指向x或者y的地址.第五行賦給x值,第六行把x的地址賦給p.最   
    
  後經過p指向的變量賦值給y.此時,x和y有相同的值.   
    
  操做符@用來取出變量的地址,也能夠取出過程和函數的地址.   
    
  而符號^有兩個目標,   
  當它出如今類型定義的前面時如 ^typename 表示指向這種類型的指針;   
  當它出如今指針變量後邊時   如 point^ 返回指針指向的變量的值;   
    
  理解指針比較容易理解面向對象的pascal語言,由於指針常常在幕後操做.任何要求動態分配大的內存空間的類型能夠用指針類型.例如   
    
  ,long-string變量,實際在使用指針進行操做.另一些高級的編程技術須要使用指針類型.   
  有時指針是適應object   pascal嚴格的類型限制的惟一方法.同過一個通用的指針類型,經過類型轉換成不一樣的指針類型,以下面的例子:   
  type   
    
      PInteger   =   ^Integer;   
  var   
      R:   Single;   
      I:   Integer;   
      P:   Pointer; //通用的指針   
      PI:   PInteger;   
  begin   
      P   :=   @R; //取出R的內存地址   
      PI   :=   PInteger(P); //把通用類型轉換成指向整數類型的指針   
      I   :=   PI^;   
  end;   
    
  固然了,實數和整數的存儲格式不一樣.這種賦值是把原始的二進制數據從R拷貝到I,而不進行轉換.   
    
  保留字nil是一個特殊的常量能夠賦給任何指針類型,當nil賦給一個指針時,指針什麼也不指向,是一個空指針.   
    
  @操做符返回變量的內存中的存儲地址,或者是過程/函數/方法;   
    
  1.若是變量,@X返回的是x的地址。若是編譯選項{$T-}沒有打開,着返回的事一個通用的指針,若是編譯選項打開了,着返回的是x的類型對應的指   
    
  針.   
    
  2.若是是例程(過程/函數),@F返回的是F的入口點，@F的類型是一個指針。   
    
  3.當@用在類的方法中時,則方法的名稱必須有類名,例如@TMyclass.Dosomething   
  指針指向TMyclass的dosomething方法。   
    
    
  當一個過程變量在賦值語句的左邊時，編譯器指望一個過程值在賦值語句的右邊。這種賦值使得左邊的變量能夠指向右邊定義的過程或者函數   
    
  入口點。換句話說，能夠經過該變量來引用聲明的過程或者函數，能夠直接使用參數的引用。   
    
  var   
    
      F:   function(X:   Integer):   Integer;   
      I:   Integer;   
  function   SomeFunction(X:   Integer):   Integer;   
    ...   
  F   :=   SomeFunction;     //   給f賦值   
  I   :=   F(4);                     //   調用所指向的函數   
    
  在賦值語句中，左邊變量的類型決定了右邊的過程或者方法指針解釋。   
    
  var   
    
      F,   G:   function:   Integer;   
      I:   Integer;   
  function   SomeFunction:   Integer;   
    ...   
  F   :=   SomeFunction;     //   給f賦值   
  G   :=   F;                           //   把F的值拷貝給G   
  I   :=   G;                           //   調用函數   
    
  第一句得到函數的入口，第二句將指針複製，第三句得到函數的返回值。   
    
  有時候還能夠這樣使用   
  if   F   =   MyFunction   then   ...;   
  在這裏，F的出現致使一個函數調用；編譯器調用F指向的函數，而後調用Myfunction，比較結果。這個規則是不管什麼時候一個過程變量（   
    
  procedural   variable）出如今一個表達式中，它表示調用所指向的函數或者過程。有時F指向一個過程（沒有返回值），或者f指向一個須要參   
    
  數的函數，則前面的語句會產生一個編譯錯誤。要比較F和Myfunction須要用   
  if   @F   =   @MyFunction   then   ...;   
  @F把F轉換成一個包含地址的無類型的指針變量,@myfunction返回myfunction的地址。   
  得到一個過程變量的內存地址使用@@。例如，@@F返回F的地址。   
    
  @操做符一般把一個無類型的指針值賦給一個過程變量，例如：   
  var   StrComp:   function(Str1,   Str2:   PChar):   Integer;   
    ...   
  @StrComp   :=   GetProcAddress(KernelHandle,   'lstrcmpi');   
  調用GetProcAddres函數,用strcomp指向這個值   
  任何過程變量能夠賦成nil，表示指證什麼也不指向。可是試圖調用一個nil值的過程變量致使一個錯誤，爲了測試一個過程變量是否能夠賦值   
    
  ，用標準的賦值函數Assigned   
  if   Assigned(OnClick)   then   OnClick(X);   
    
    
  先到這裏吧,我也是一邊看幫助一邊翻譯的,沒有參考什麼書籍,因此有一些名詞可能不太準確,但願你們多多包涵吧,畢竟本人的英文水平有限啊   
    
  .呵呵   
    
  有什麼問題能夠參看delphi的幫助的相關內容,我的以爲仍是看幫助好一些,並且原文最好,像我這樣翻譯可能誤導你們啊,看的時候要受其精華   
    
  棄其糟粕,看完了別罵我就好了,全當我給你們仍塊磚頭吧,別砸我啊@_@

http://blog.csdn.net/diligentcatrich/article/details/5492963