一个回调函数的访问

用回调函数来实现事件通知是通用的作法。但如果是批量事件，或者是map方式通过key来存放事件处理函数，

在delphi中的写法应该是这样的：

//定义回调函数
TfnCallBack = function(Sender: TObject) of object;

myobj = class
private
  FfuncList: TList;
  Fhash: THashMap;
end;


//批量通知
procedure myobj.notice;
var 
  i: integer;
  func: TfnCallBack;
begin
  for i:= 0 to FfuncList.count -1 do
  begin
    @func:= FfuncList.item[i];
    func(self);
  end;
end;


//关键字通知
procedure myobj.notice(const sKey: string);
var
  func: TfnCallBack;
begin
  @func:= Fhash.valueOf(skey);
  if assigned(func) then
    func(self);
end;


//注册
procedure myobj.register(aFunc: TfnCallBack)
begin
  FfuncList.add(pointer(aFunc));
end;