如何判断事件指向的过程是否是指定过程

Question

if (DataSet.BeforeClose <> self.SortedDataSetClose) then这条语句在编译时出错,提示: 不够参数(Not enough actual parameters)该如何书写此语句?

Answer 1

即 判断 DataSet.BeforeClose这个事件(函数指针) 是否指向 该过程: SortedDataSetClose

Answer 2

已解决,只需要声明多一个函数指针,指向你想要判断的过程或函数,再用该指针进行判断.
如:
  type 
    TEvent = procedure(str: string);
  end;  procedure ShowStr(str: string)
  begin
    ShowMessage(str);
  end;  var
    AEvent: TEvent;
  begin
    AEvent := ShowStr;
    if AComponent.AEvent = AEvent then
      ShowMessage('the component's event is showstr()');
  end;