请问在delphi中如何实现多态这种特性？

如何在delphi中使用虚拟函数？

解决方案 »

  1.   

    TMyClass = class(TObject)
    privatepublic
      procedure myfunc; virtual;
    end;此为声明虚拟函数的一般方法。另，delphi有接口：interface，相当于c++的多重继承
      

  2.   

    如果是重载的话在函数声明后面加overload
      

  3.   

    覆盖虚拟方法应该使用override
    TMyClass2 = class(TMyClass)
    privatepublic
      procedure myfunc; override;  //覆盖祖先的虚拟方法
    end;查看borland的帮助获得更多信息
      

  4.   

    在覆盖虚拟方法override中，若要继承父类中代码，则要在函数内加上Inherited;；若不这样，其会覆盖父类中之方法