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

[a281346230]

继承 多态 重载 方法覆盖

谢谢

例子有点多 大家可以写到一个程序里 我参考下

谢谢

[liangpei2008]

直接看VCL的TStrings类或TStream类

[iamduo]

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

[火龙岛主]

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;

//