Delphi中回调、事件、接口简单说明

    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;

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

 

转载于:https://www.cnblogs.com/NewJourney/archive/2011/12/28/2305043.html