小编Ice*_*Har的帖子

我的班级包含数据集 (TDataSet)。我班的用户可以为此数据集分配事件处理程序：

ds.FieldByName('ID').OnChange := @ID_OnChange;

然后我必须重新打开数据集：

ds.Close;
ds.Open;

在此之后，所有事件处理程序都消失了：

if Assigned(ds.FieldByName('ID').OnChange) //returns false

所以，我需要保存处理程序并在重新打开后恢复它们。我使用 TStringList ：

var
  EventHandlers: TStringList;
...
  //I do this for every event of every field
  if Assigned(ds.FieldByName('ID').OnChange) then
    EventHandlers.AddObject('ID', @ds.FieldByName('ID').OnChange);

问题是如何恢复处理程序：

ds.FieldByName('ID').OnChange := TFieldNotifyEvent(ObjToInt(EventHandlers.Objects[0]));//Invalid typecast error

如何将存储的地址分配给事件处理程序？谢谢。