随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

{
   抽象类是一定要被继承才可以使用的; 抽象方法是一定要被覆盖才可以使用的.
   现在说的是不能被覆盖的方法, 与不能被继承的类.
}

//譬如:
TA = class
  procedure Proc; virtual; {TA 中的虚方法, 将要被覆盖}
end;

TB = class(TA)
  procedure Proc; override; {覆盖}
end;

TC = class(TB)
  procedure Proc; override; {再次覆盖}
end;

//假如要设定 TB.Proc 为最终方法, 不允许再覆盖了, 需要 final 指示字. TA = class procedure Proc; virtual; {TA 中的虚方法, 将要被覆盖} end; TB = class(TA) procedure Proc; override; final; {最终覆盖} end; TC = class(TB) //procedure Proc; override; {再覆盖不行了} end;
//用 class sealed 是不能被继承的 TMyClass = class sealed(TObject) //... end;
posted on 2008-01-17 12:25  万一  阅读(...)  评论(...编辑  收藏