Delphi中类的继承与多态

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

3、下面进行三个类的eat方法编写，代码如下：{ TAnimal }procedure TAnimal.eat;begin showmessage('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先继承，再写自己类的方法代码。

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

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