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