Delphi——多态及其实例说明 1

1-多态
从继承实例的说明那一讲，我们深入理解一下多态：
总结一句话：（前提是基类和子类方法是同名方法）
基类方法如果允许子类进行重写，就设置此基类方法为虚virtual，设置子类方法为重写override。
场景——希望运行的时候拿的是基类变量，但是实际new的时候是new的子类，那就应该用子类的方法去实现，而不是继续用基类的方法，
这样就用到了多态，一般声明的变量或者方法参数的接口接收的类型可能是基类的类型，但是执行方法的时候要执行子类自己特有的方法，
这样就可以把基类方法设置为虚的，子类方法设置为重写。
步骤——就需要把父类的方法设置为虚的，然后将子类的方法后面加上一个指示字，告诉它是重写的，从而来替换虚的或者是动态的。
即：基类方法后面加virtual；
子类方法后面加override；
下面是例子，帮助理解。
2-窗体设计

3-效果展示

4-代码编写

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms