Delphi中存在普通回调、事件、接口三种概念,公用点是具体实现不是自己,自己只需要定义好规则或者叫声明函数类型。

    普通回调是大部分语言都支持的,只要可以显示使用指针的语言应该都支持,原理是把一个函数的指针告诉调用者,调用者就可以通过这个指针调用函数,这种概念在有些地方是很有用途的。比如C语言里实现比较两个数的大小,数字可以是整形,浮点设置位宽不同,这个时候可以定义一个规则,通用性就比较好。不用自己去实现每种具体类型的比较。

type

   TCompareData = function(A, B: Pointer): Integer;   // 比较函数原型

 

var

  Cmp: TCompareData; 

调用

  if Assigned(Cmp) then  // 判断Cmp不为空

    Cmp(A, B);               // 调用,这里就不需要知道实现的方式

 

    Delphi中的事件和普通回调不太一样,区别在他是类得成员变量,32位机下地址是8Byte,4Byte为对象地址(Self),4Byte为函数地址。如上面的普通的函数声明也能在类中声明一个Cmp: TCompareData,但这个Cmp只能给普通的函数地址。如果要将一个类得成员函数地址赋值给他就需要如下这样定义,这样定义也不能给他赋值普通的函数指针。

type

  TCompareData2 = function(A, B: Pointer): Integer of object;

    接口是面向对象的概念,具体可以参考接口方面的资料,但我们可以看着多个回调的集合。