我的课程包含数据集(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
如何将存储的地址分配给事件处理程序?谢谢。