zzzl - 一个泛型的 multicast delegate 实现 CnPack Forum

CnPack Forum » Blogs » zzzl » 一个泛型的 multicast delegate 实现

一个泛型的 multicast delegate 实现
一个泛型的 memoize 实现

0 members, 0 guests

这个精巧的方法不是我想出来的，但挺不错的，所以在这推荐给大家，来源于：https://forums.embarcadero.com/thread.jspa?threadID=47819

源代码我下载好了，放在附件里了。

下面的内容是原文中的用法示例，我只是翻译了一下，这样即使你不了解 multicast delegate 也可以快速看到这个方法的效果。

*****************************************************************************************

在我的multicast delegate方法里，TDelegate<T>可以被声明成象下面这样：

  TSomeForm = class(TForm)
  private
FOnChange: TDelegate<TNotifyEvent>;
  end;

TDelegate<TNotifyEvent>类型不需要创建，销毁，或其它的什么管理。它是一个用于引用过程的简单泛型存储器。
要给FOnChange增加一个事件，你可以这样写：

FOnChange.Add(ChangeHandlerOne);
FOnChange.Add(ChangeHandlerTwo);

注意FOnChange不需要初始化，而多个事件过程就可以被加进来。在这个示例里用的一个句柄过程是这样的：

procedure TSomeForm.ChangeHandlerOne(Sender: TObject);
begin
  ShowMessage('Change event one fired');
end;

如果要移除一个事件句柄你可以这样写：

FOnChange.Remove(ChangeHandlerOne);

如果要调用事件列表，你可以这样写：

procedure TSomeForm.DoChange(Sender: TObject);
var
  Event: TNotifyEvent;
begin
  for Event in FOnChange do Event(Sender);
end;

在调用事件之前，你不需要检测FOnChange或事件是否已分配。
你也可以通过特定的接口，约束访问add和remove方法的外部代码。

  IDelegate<T> = interface
procedure Add(const Handler: T);
procedure Remove(const Handler: T);
  end;

使用这个接口的话，你可以象这样通过属性暴露FOnChange

  private function GetOnChange: IDelegate<TNotifyEvent>;
  public property OnChange: IDelegate<TNotifyEvent> read GetOnChange;

...

function TSomeForm.GetOnChange: IDelegate<TNotifyEvent>;
begin
  Result := FOnChange;
end;

这样的效果就是，外部代码可以在FonChange上增加和移除代码，但不能调用与FOnChange关联的事件过程
更进一步，你可以自定义delegate类型。

  TNotifyHandler = reference to procedure(Sender: TObject);
  TNotifyDelegate = TDelegate<TNotifyHandler>;
  INotifyDelegate = IDelegate<TNotifyHandler>;

总的来说，所有的东西都可以使用类似的代码放在一起。请注意，没有必要创建、摧毁或管理FOnChange事件。

type
  TSomeForm = class(TForm)
  private
FOnChange: TNotifyDelegate;
function GetOnChange: INotifyDelegate;
  protected
procedure DoChange(Sender: TObject); virtual;
  public
property OnChange: INotifyDelegate read GetOnChange;
  end;

...

procedure TSomeForm.DoChange(Sender: TObject);
var
  Event: TNotifyHandler;
begin
  for Event in FOnChange do Event(Sender);
end;

function TSomeForm.GetOnChange: INotifyDelegate;
begin
  Result := FOnChange;
end;

然后，其它的代码可以追加/添加事件名柄，像这样：
SomeForm.OnChange.Add(SomeFormChanged);
SomeForm.OnChange.Remove(SomeFormChanged);

Attachment: Delegates.zip (914 bytes)
Download count 108

我怎么觉得IDelegate这个限制有点太多余阿. 只能add,remove,不能调用,这个限制没有实际意思. 就像private,public一样. 必要时候是有必要直接调用private成员的. 这个约定是口头的,让别人知道就可以了.没必要完全限制住.

khzide

2011-1-19 09:59

Post Comment
This blog was closed or you do not have permission to post comment.