一个Delphi下Abstract Error问题的处理

今天在修改一个公司项目的时候出现了Abstract Error问题,在网上查找之后发现为纯虚函数引起.

但是看了代码之后,发现该类的子类的同名函数也实现了.这是什么原因呢?

后来终于找了原因.

T1 = Class(TObject) //这个我们假设是基类

public

function f1();virtual;abstract;

T1s = Class(T1) //这个是我们用到的类的父类

public

function f1();override;

T1ss = Class(T1s) //这个是我们用到的类(开始的认为)

public

function f1();override;

这样一看一切都正常

但是这个工程用了动态类型的方法

即：O1 : T1;然后在动态找到类型后 O1 ：= T（动态找到的类型）.create;接着O1.f1;

结果发现还有一个类：

T1a = Class(T1) //这个是我们用到的类的父类

public

function f2();virtual;abstract;

T1as = Class(T1a) //这个是我们用到的类

public

function f2();override;

其实O1是T1as。

这样我既不能直接用f1,也不能直接用f2。只能用以下方法处理。

在T1中添加f2,然后在将O1.f1改为：

if O1.classParent = T1a then

O1.f2

else

O1.f1;

问题解决。其实还是粗心造成的。不过也学到了不少东西。