我正在尝试列出处理程序是方法引用的事件处理程序。
要删除特定的处理程序，我需要在列表中找到它。
但是如何比较两个方法引用的代码地址？
要删除特定的处理程序，我需要在列表中找到它。
但是如何比较两个方法引用的代码地址？
- type
- TEventHandler = reference to procedure;
- procedure TestProc;
- begin
- end;
- procedure TForm26.FormCreate(Sender: TObject);
- var
- Handlers: TList<TEventHandler>;
- begin
- Handlers := TList<TEventHandler>.create;
- try
- Handlers.Add(TestProc);
- Handlers.Remove(TestProc); { doesn't work }
- Assert(Handlers.Count=0); { fails }
- Assert(Handlers.IndexOf(TestProc)>=0); { fails }
- finally
- FreeAndNil(Handlers);
- end;
- end;
解决方法
这不像看起来那么容易。
要了解为什么会发生这种情况，您需要了解编译器如何执行方法引用的分配。
您编写的代码基本上由编译器翻译成：
- Handlers.Add(procedure begin TestProc; end);
- Handlers.Remove(procedure begin TestProc; end);
现在我们必须知道，如果您在同一个例程中有多个匿名方法，那么即使他们的代码是相同的，它们实际上也是不同的匿名方法。 (见How are anonymous methods implemented under the hood?)
这意味着传递给“添加和删除”的值即使其身体中的代码是相同的，即使是黑客也需要二进制代码分析来确定正文中的代码是否相同。
如果你改变代码如下，它将工作，因为你只有一个匿名方法 – 为这个剪辑它的工作，但通常你不会添加和删除在完全相同的例程：
- var
- Handlers: TList<TEventHandler>;
- Handler: TEventHandler;
- begin
- Handlers := TList<TEventHandler>.create;
- try
- Handler := TestProc;
- Handlers.Add(Handler);
- Handlers.Remove(Handler);
- Assert(Handlers.Count=0);
- finally
- FreeAndNil(Handlers);
- end;
- end;
如果您想要添加和删除事件处理程序的列表，我的个人建议是避免匿名方法类型并使用过程或方法：
- type
- TEventHandlerA = procedure;
- TEventHandlerB = procedure of object;
最好的决定取决于你，因为你的代码更好。