关于回调函数

Question

给你一个例子：
type
  TCallBackFunction = function(s: string): integer;
  CallMe(s: string): integer; procedure TestCallBack(CallBackFunction: TCallBackFunction); far; external 'Other';
{ Note that 'other' is a Dll containing the procedure TestCallBack }function CallMe(s: PChar): integer;
begin
  { what ever you need to do }
  CallMe := 1; { What ever you need to return }
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  TestCallBack(CallMe);
end;type
  TMainFunction = function(s: string): integer;
  TestCallBack(MainFunc: TMainFunction);
{ in library Other implementation }
TestCallBack(MainFunc: TMainFunction);
var
  result: integer;
begin
  result:=MainFunc('test');
end;

Answer 1

最简单的例子，delphi中的事件处理函数就是典型的回调函数

Answer 2

同意ikumei的说法，再做一下补充：
1、回调函数由你提供，用来操作你的数据
2、回调函数主要是由别人调用。
3、它和DLL导出函数的主要区别是，DLL是别人主动调用，而回调函数是由你指定别人调用。