Delphi中类的继承与多态

1、打开Delphi7继承开发环境，在默认工程的Form1窗体放置两个Button，分别设置Caption为：调用子类1和调用子类2

2、在type区定义三个类一个父类TAnimal,两个子类一个TDog,另一个TCat，都有eat方法，但是子类进行覆盖，代码剧安颌儿如下： TAnimal = class procedure eat();virtual; end; TDog = class(TAnimal) procedure eat();override; end; TCat = class(TAnimal) procedure eat();override; end;

3、下面进行三个类的eat方法编写，代码如下：{ TAnimal }procedure TAnimal.eat;begin showmessag髫潋啜缅e('annimal eat anything');end;{ TDog }procedure TDog.eat;begin showmessage('dog eat gutou');end;{ TCat }procedure TCat.eat;begin inherited; showmessage('cat eat fish');end;TDog直接覆盖了TAnimal的eat方法，TCat先继承，再写自己类的方法代码。

4、双击调用子类方法1按钮进入事件方法，并写如下代码;procedure TForm1.Button1Click(Sender: TObject);var dog:TDog;begin dog := TDog.Create; dog.eat;end;实现TDog类的实例，调用eat方法

5、双击调用子类方法2按钮进入事件方法，并写如下代码;procedure TForm1.Button2Click(Sender: TObject);var cat:TCat;begin cat := TCat.Create; cat.eat; cat.Free;end;实现TCat类的实例，调用eat方法

6、F9运行程序，点击调用方法1,会弹出对话框，内容：dog eat gutou

7、点击调用方法2,会先弹出对话框，内容：annimal eat anything.再弹出对话框，内容：cat eat fish