谁给我写个面向对象的例子！

Question

继承 多态 重载 方法覆盖谢谢 例子有点多 大家可以写到一个程序里 我参考下谢谢

Answer 1

直接看VCL的TStrings类或TStream类

Answer 2

http://blog.sina.com.cn/s/blog_40ac716701000bst.html

Answer 3

TMan = class(TObject)
public
  procedure Talk; overload; //重载
  procedure Talk(const Something: string); overload;//重载
  procedure Walk; virtual;
end;TChinaMan = class(TMan)//继承
public
  procedure Walk; override; //覆盖
end;TKoreanMan = class(TMan）
  procedure Walk; reintroduce; //重新声明
end;//