Delphi 函数指针（三大好处：灵活，委托的本质，回调机制），还可把函数指针当参数传入

首先学习: 指向非对象（一般的）函数/过程的函数指针

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)实现回调机制

函数指针很有用啊,是高级程序员的必修。

例子

1. {********************************************************
2.   函数指针(指向一般函数和过程)
3. UnitOwner:coco.zhang                           
4.   Last Modified:2008-10-5   
5. *********************************************************}
6. unit DelegateUnit;
7. interface
8.      procedure Func1;
9.      {定义两个函数型构相同但功能不同的函数} 
10.      function    FuncAdd(VarA , VarB : Integer):Integer;
11.      function    FuncSub(VarA , VarB : Integer):Integer;
12. type
13.      DelegateFunc1 = procedure;
14.      DelegateFuncCalc = function(VarA , VarB : Integer):Integer;
15. var
16.    I : Integer;
17. implementation
19.    procedure Func1;
20.    begin
21.        Writeln('Func1 was called!');
22.    end;
23.    function    FuncAdd(VarA , VarB : Integer):Integer;
24.    begin
25.         Result := VarA + VarB;
26.    end;
27.     function    FuncSub(VarA , VarB : Integer):Integer;
28.    begin
29.         Result := VarA - VarB;
30.    end;
31.    end.

客户端调用

1. program Delegate;
2. {$APPTYPE CONSOLE}
3. uses
4.   DelegateUnit;
5. var
6.    ADelegateFunc1 : DelegateFunc1;
7.    ADelegateFuncCalc : DelegateFuncCalc;
8. begin
9.     {通过函数指针调用过程}
10.     ADelegateFunc1  := Func1;
11.     ADelegateFunc1 ;
12.     {通过同种方式调用不同函数}
13.     ADelegateFuncCalc  := FuncAdd;
14.     Writeln(ADelegateFuncCalc(3,5));
15.     ADelegateFuncCalc  := FuncSub;
16.     Writeln(ADelegateFuncCalc(3,5));
17. end.

运行结果

D:ProjectsDelphi7srcGofProjectsDelegate>Delegate 
Func1 was called! 
8 
-2

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

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

Delphi函数指针的使用

geek_loser 发布于 1年前，共有 0 条评论

   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;

一个指向函数的指针在赋值指向函数时，不需要显示地取函数的地址。

例：

var F:function(X:Integer):Integer;

...

function aa(X:Integer):Integer;

不需要： F:=^aa;

只要：F:=aa;就可以了。

F:=aa可能是一个函数类型变量赋值，也可能是调用aa函数过程。

如果F不是一个函数过程类型，它就是一个函数调用。

但是只要是出现在表达式中，就一定是函数过程的调用。

例：if A:=fun then

A:=fun一定是一个函数过程的调用，将返回值赋予A

注意，如果fun是一个过程（它没有返回值）或它需要参数（需要写上参数），那就会产生语法错误。

如果要显示说明它是一个赋值语句而不是函数过程的调用，可以这样写

if @A :=@fun  then

@A是将A转换成一个无类型指针（它本身就是以指针形式存在）

@fun是取得函数过程fun的地址

可以通过@@A的方式取得该过程函数变量的地址，而不是它指向的函数过程的地址

void SetProcessDataProc(NOTISFYDATAISRECEIVED ProcessDataProc)
参数：ProcessDataProc —— 回调函数指针。
返回值：无
功能：设置数据到达通知函数。动态连接库主动通知用户有新数据到达，随后用户就可以立即查询相关数据。用户调用此接口函数设置通知函数以后，每当新数据到达，动态连接库就通过这个通知函数通知用户。通知函数原型必须如下：（函数名称和参数名称可以不同）
void ProcessDataProc(int iBedNo,unsigned char ucDataType,WPARAM wParam);
其中，iBedNo参数表示到达数据所对应的设备号。
ucDataType表示到达数据类型。ucDataType值与对应的数据包类型以及常调用的接口函数如表1所示。对于表中没有列举的数据包类型，数据包内没有有用的数据。
wParam用于传递其他信息，保留，暂时没有使用。
所以，SetProcessDataProc接口函数的参数类型NOTISFYDATAISRECEIVED可以定义如下：
typedef void(* NOTISFYDATAISRECEIVED)(int iBedNo,unsigned char ucDataType,WPARAM wParam);
这是一个动态连接库中一个函数，我现在想在delphi中调用该函数，请问该如何定义上述类型和函数。

void ProcessDataProc(int iBedNo,unsigned char ucDataType,WPARAM wParam);

->
procedure ProcessDataProc(iBedNo: Integer; ucDataType:BYTE; wParam: WPARAM);stdcall;

typedef void(* NOTISFYDATAISRECEIVED)(int iBedNo,unsigned char ucDataType,WPARAM wParam);
->
type NOTISFYDATAISRECEIVED = procedure of(iBedNo: Integer; ucDataType:BYTE; wParam: WPARAM) of object;///