delphi中使用override需要注意的地方

最新推荐文章于 2023-04-02 18:37:17 发布

转载最新推荐文章于 2023-04-02 18:37:17 发布 · 3.3k 阅读

标签

#delphi #integer #function #class

收录于

delphi 专栏收录该内容

64 篇文章

订阅专栏

本文介绍了在Object Pascal中如何正确地使用inherited关键字来调用基类中的Procedure，并通过特定语法来实现对基类Function的调用。文章通过具体代码示例展示了覆写过程中需要注意的关键细节。

       在override时，如果override的是procedure，则加上关键字inherited; 就会执行父类同名procedure的所有过程，然后再执行子类中特有的过程。如果override的是function则不会执行父类中同名function的内容。但是，可以通过下面的方法来执行父类的内容：
       例如：
    TBaseCls = Class
    public
         function Add(i1,i2:Integer):Integer;vitual;
    end;
    TChildCls = Class(TBaseCls)
    public
      function Add(i1,i2:Integer):Integer;overridd;
    end;

    TChildCls.Add(i1,i2:Integer):Integer;
    var
      i:integer;
    begin
      i:=inherited Add(i1,i2);
      //这儿进行你的处理。
    end;