procedure TOBJ.Delete;
begin
  inherited Delete;
end;
procedure TOBJ.Delete;
begin
  inherited;
end;

解决方案 »

  1.   

    //父类的方法
    procedure TOBJ.Delete;
    begin
      inherited Delete;
    end;//子类的方法
    procedure TChildOBJ.Delete(AIndex:Integer);
    begin
      inherited Delete;
      自己的删除方法end;
      

  2.   

    第一种方式一般常见于子类修改了入口参数的情况。对 ZyxIp(绝望中...) 的代码质疑,不论如何,保持一个良好风格是一个程序员应尽的责任,在销毁代码中应当先销毁子类构造的部分,然后再调用父类销毁代码。
      

  3.   

    delete 并不是释放如果这个类是从 TStringList 中继承的则先调用父类的Delete 方法。然后在做一些其它的操作。如果要销毁自己,一般不会是自己调用了。
      

  4.   

    inherited Delete;指明要调用父类的函数名,如果不指明,则默认调用父类的同名函数。
      

  5.   

    可以指定父类的这个方法的参数啊
    比如
    begin
      inherited Delete(Str);
    end;begin
      inherited Delete;
    end;
      

  6.   

    就你这个看是没却别的。 他会选择和当前函数同型的父类析构函数。
    如果有多个析构函数,你可以自己指明,这个情况在构造函数里面用的较多。虽然它允许这么写  inherited;但是我觉得这样写既不清晰也有隐患。