梦断难寻

摘要： 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. 阅读全文