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;