delphi - 空函数 - 占位符？

Question

所以我只是浏览我们的库存管理系统的代码 我看到了我一位同事的一些片段，他在某些功能中所做的只是 例如，只需打开它们并在其中插入命令

procedure TWerkStF.TBBtnStatiClick(Sender: TObject);
begin
  inherited;
  //
end;

所以我想知道什么时候应该做这样的事情，什么时候有用，有什么好处吗？

Answer 1

这没有用，也没有任何好处。这样的功能可以而且应该被删除。

问题中的函数通过使用继承，只需在父类(super class)中搜索同名函数，如果找到则调用它。如果未找到，则不执行任何操作。通常，这样的函数(仅调用inherited)不会修改程序的行为。您可以在不改变行为的情况下删除它。