一种奇怪的定义，请进

Question

TtdDisposeProc = procedure (aData : pointer);或者
TtdCompareFunc = function (aData1, aData2 : pointer) : integer;
各位，懂意思的请说说怎么回事儿，谢谢

Answer 1

定義TtdDisposeProc為一個過程類型

Answer 2

type  
  TTestClass = class(TControl)    //或者其它类
    ……
    OnCompare: TtdCompareFunc;
    
  end;

Answer 3

然后可以用一个普通函数赋值：
即：function  AtdCompareFunc(aData1, aData2 : pointer): integer;
begin
  ……
end;procedure SomeProc;          //某个函数或过程，如TTestClass.Create;
begin  
  OnCompare:= AtdCompareFunc;
end;

Answer 4

这种类型VCL里不是到处都在用。
就是过程类型的定义啊。

Answer 5

这就是定义一个过程/函数类型呀
就像是系统的string,Integer一样的

Answer 6

我就喜欢把Application里面的WndProc给改成我自己的函数，然后去拦截消息。西西
那就是一个指向函数的指针

Answer 7

不很经常用到。不过上次写了个DLL的回调函数，把 过程类。也顺便温习了一下.呵呵！