不能被覆盖的方法与不能被继承的类。

TMyForm = class
    private
      FName : String;
      FAge : Integer;
    protected
      procedure ShowName;virtual; // 将要被覆盖的虚方法。
  end;

  TMyForm2 = class(TMyForm)
    Procedure ShowName;override; // 覆盖;
  end;

  TMyForm3 = class(TMyForm2)
    procedure ShowName;override;final; // 最终覆盖,再往下就无法覆盖了。Final指令字的作用就让方法无法继续覆盖。
  end;


    One = class sealed      //不可继承的类,sealed指令字表示这个类无法继承。

    end;

 

此项目被张贴在未分类 。书签的 permalink

发表评论

电子邮件地址不会被公开。 必填项已用*标注