一個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;

問題解決。其實還是粗心造成的。不過也學到了不少東西。