为什么要检查对象方法中的Assigned(self)？

Question

我正在查看一些代码(Delphi 7),以下检查位于特定对象的每个方法调用的顶部:

if not Assigned(self) then
  raise Exception.CreateRes(@sAbstractError);

  { Real code for this method}

我想这会阻止我尝试在空对象指针上调用方法.但是,一旦我尝试访问该情况下的成员数据,我会得到一个例外,对吗？

这是我以前从未见过的某种标准吗？有问题的对象来自TPersistent.

Answer 1

抱怨nil指针的明显错误比没有说明它是如何发生的访问冲突更好.

Answer 2

您可以在空指针上调用实例方法,尽管它不是您想要故意做的事情.当发生这种情况时,执行继续非常愉快,直到它需要访问实例数据然后一切都爆炸.

在这种情况下,检查nil会在程序的顶部提醒您,以便您可以执行不同的操作,例如记录堆栈跟踪.或者你可以在加注线上设置一个断点,这样你就可以潜入并看看发生了什么.

也就是说,如果我有一个特定的错误,我试图追踪使用零参考的地方,我可能会这样做.

经常这样做会给我带来代码味道.