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的幫助的相關內容,個人覺得還是看幫助好一些,而且原文最好,像我這樣翻譯可能誤導大家啊,看的時候要受其精華 ?
? ?
? 棄其糟粕,看完了別罵我就行了,全當我給大家仍塊磚頭吧,別砸我啊@_@

總結

以上是生活随笔為你收集整理的delphi指针简单入门的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。