delphi - 空函数 - 占位符？

Question

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

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

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

Answer 1

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

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