一个回调函数的访问

最新推荐文章于 2021-09-21 19:45:47 发布

原创最新推荐文章于 2021-09-21 19:45:47 发布 · 179 阅读

0 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

14 篇文章

订阅专栏

用回调函数来实现事件通知是通用的作法。但如果是批量事件，或者是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;