请问在delphi里如何实现多态

Question

还有就是如何实现自定义一个新类，并实例化之。

Answer 1

多态？所有的VCL都是从OBJECT来的不就是多态？

Answer 2

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
不就是一个新类吗？

Answer 3

你自己定义一个基类。比如：
type
  TMyBaseClass = class
  private
    FInt: integer;
  public
   procedure MyMethod; virtual; //定义虚方法，才可以在子类中覆盖
  end;
然后定义个类继承它
type
  TMySonClass = class(TMyBaseClass)
  public
    procedure MyMethod; overload; //覆盖父类的虚方法
  end;

Answer 4

type
    TFreight= Class(TCompany)
    public
       procedure FreightItemList(mm:String); overLoad;
       Procedure FreightItemList(mm:String,nn:Intger);overLoad;

Answer 5

你自己定义一个基类。比如：
type
  TMyBaseClass = class
  private
    FInt: integer;
  public
   procedure MyMethod; virtual; //定义虚方法，才可以在子类中覆盖
  end;
然后定义个类继承它
那么如何动态地创建子类呢？象c++中就用的new。

Answer 6

唉，想对一个delphi编的程序进行改造，根本无法进行，因为它本来就是按照面向过程的思路编写的。