德尔福.在整个代码中使用try / except.邪恶？

我在最近的一个项目中遇到过这种做法 – 几乎每个过程和函数都包含在try / except子句中,如下所示：

function TMyClass.DoFoo(aBar: Integer): Boolean;
begin
  try
    .. do something .. // Proper checks for common errors inside
    Result := True;
  except
    LogException(ClassName + '.DoFoo'); // Write exception to log
    Result := false; // InDicate function did not performed what it was asked for
    // Exit without re-raising exception
  end;
end;

procedure TMyClass.buzz(Sender: TObject);
begin
  try
    .. do something .. // Proper checks for common errors inside
  except
    LogException(ClassName + '.DoFoo'); // Write exception to log
    // Exit without re-raising exception
  end;
end;

这看起来像很多重复.但是我可以看到它背后的某种逻辑.如果将每个过程和函数包装到try ..except中,您将知道异常的大致位置,并让程序继续工作而不会向用户弹出崩溃消息,而是将它们写入日志以供将来分析.

然而,这种做法被认为是邪恶的.究竟是为什么呢？

编辑：

>这是一个关于我将要合作的项目的问题,我自己并没有发明它
>我很了解madExcept,我在其他项目中使用它
>该项目中的职能和程序照常布置,没有迹象表明程序被编写为仅用于替换异常流程的功能