小编o.s*_*wab的帖子

我已经定义了以下内容:

• 方法指针,如果验证正常或错误代码,则返回0

  TValidationFunc = Function(AParam: TAnObject): integer Of Object;
  

  Run Code Online (Sandbox Code Playgroud)

• 要执行的函数列表:

  Functions: TObjectList < TValidationFunc>;
  

  Run Code Online (Sandbox Code Playgroud)

我在函数列表中放了几个带有此签名的函数.

要执行它们,我执行:

For valid In Functions Do
Begin
  res := -1;
  Try
    res := valid(MyObject);
  Except
    On E: Exception Do
      Log('Error in function ??? : ' + E.Message, TNiveauLog.Error, 'PHVL');
  End;
  Result := Result And (res = 0);
End;

如果此函数引发异常,我如何在日志中获取原始函数的名称？