首先學習: 指向非對象（一般的）函數/過程的函數指針

Pascal 中的過程類型與C語言中的函數指針相似,為了統一說法,以下稱函數指針。函數指針的聲明只需要參數列表；如果是函數，再加個返回值。例如聲明一個過程類型，該類型帶一個通過引用傳遞的整型參數：

type
IntProc = procedure (var Num: Integer);

這個過程類型與任何參數完全相同的例程兼容,即用它聲明的變量,可以指向任何此類函數,并通過其進行函數的調用。下面是一個兼容例程：

procedure DoubleTheValue (var Value: Integer);
begin
Value := Value * 2;
end;

函數指針能用于兩種不同的目的：聲明函數指針類型的變量；或者把函數指針作為參數傳遞給另一例程。利用上面給定的類型和過程聲明，你可以寫出下面的代碼：

var
IP: IntProc;
X: Integer;
begin
IP := DoubleTheValue;
X := 5;
IP (X);
end;

雖然這種調用方法比直接調用麻煩了,那么我們為什么要用這種方式呢？

(1)因為在某些情況下，調用什么樣的函數需要在實際中(運行時)決定,你可以根據條件來判斷,實現用同一個表達,調用不同的函數,很是靈活.

(2)利用函數指針我們可以實現委托,委托在.NEt中被發揮的淋漓盡致,但Delphi同樣能實現

(3)實現回調機制

函數指針很有用啊,是高級程序員的必修。

例子

{********************************************************
函數指針(指向一般函數和過程)
UnitOwner:coco.zhang
Last Modified:2008-10-5
*********************************************************}
unitDelegateUnit;
interface
procedureFunc1;
{定義兩個函數型構相同但功能不同的函數}
function FuncAdd(VarA , VarB : Integer):Integer;
function FuncSub(VarA , VarB : Integer):Integer;
type
DelegateFunc1 =procedure;
DelegateFuncCalc =function(VarA , VarB : Integer):Integer;
var
I : Integer;
implementation

procedureFunc1;
begin
Writeln('Func1 was called!');
end;
function FuncAdd(VarA , VarB : Integer):Integer;
begin
Result := VarA + VarB;
end;
function FuncSub(VarA , VarB : Integer):Integer;
begin
Result := VarA - VarB;
end;
end.

客戶端調用

programDelegate;
{$APPTYPE CONSOLE}
uses
DelegateUnit;
var
ADelegateFunc1 : DelegateFunc1;
ADelegateFuncCalc : DelegateFuncCalc;
begin
{通過函數指針調用過程}
ADelegateFunc1 := Func1;
ADelegateFunc1 ;
{通過同種方式調用不同函數}
ADelegateFuncCalc := FuncAdd;
Writeln(ADelegateFuncCalc(3,5));
ADelegateFuncCalc := FuncSub;
Writeln(ADelegateFuncCalc(3,5));
end.

運行結果
D:ProjectsDelphi7srcGofProjectsDelegate>Delegate
Func1 was called!
8
-2

http://www.cnblogs.com/fengyuwuzu1980/archive/2008/12/23/1360268.html

--------------------------------------------------------------------------------------------------------------------

Pascal 中的過程類型與C語言中的函數指針相似,為了統一說法,以下稱函數指針。函數指針的聲明只需要參數列表；如果是函數，再加個返回值。下面講解指向非對象（一般的）函數/過程的函數指針。

例如聲明一個過程類型，該類型帶一個通過引用傳遞的整型參數：

type
IntProc = procedure (var Num: Integer); //IntProc是指向過程的函數指針

這個過程類型與任何參數完全相同的例程兼容,即用它聲明的變量,可以指向任何此類函數,并通過其進行函數的調用。

下面是一個兼容例程：

procedure DoubleTheValue (var Value: Integer);
begin
Value := Value * 2;
end;

函數指針能用于兩種不同的目的：聲明函數指針類型的變量；或者把函數指針作為參數傳遞給另一例程。利用上面給定的類型和過程聲明，你可以寫出下面的代碼：

var
IP: IntProc;
X: Integer;
begin
IP := DoubleTheValue;
X := 5;
IP (X);
end;

雖然這種調用方法比直接調用麻煩了,那么我們為什么要用這種方式呢？

(1)因為在某些情況下，調用什么樣的函數需要在實際中(運行時)決定,你可以根據條件來判斷,實現用同一個表達,調用不同的函數,很是靈活.

(2)利用函數指針我們可以實現委托,委托在.NEt中被發揮的淋漓盡致,但Delphi同樣能實現

(3)實現回調機制

delphi中可以通過函數指針把一個函數作為參數來傳遞，然后在另外一個函數中調用。

1) 首先，申明函數指針類型TFunctionParameter。

type
TFunctionParameter = function(const value : integer) : string;

2) 定義準備被作為參數傳遞的函數

function One(const value : integer) : string;
begin
result := IntToStr(value) ;
end;

function Two(const value : integer) : string;
begin
result := IntToStr(2 * value) ;
end;

3) 定義將要使用動態函數指針參數的函數

function DynamicFunction(f : TFunctionParameter; const value : integer) : string;
begin
result := f(value) ;
end;

4) 上面這個動態函數的使用實例

var
s : string;
begin
s := DynamicFunction(One,2006) ;
ShowMessage(s) ; //will display "2006"

s := DynamicFunction(Two,2006) ;
ShowMessage(s) ; // will display "4012"
end;

--

http://anony3721.blog.163.com/blog/static/511974201071425836199/

總結

以上是生活随笔為你收集整理的Delphi 函数指针（函数可以当参数）的全部內容，希望文章能夠幫你解決所遇到的問題。

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