擴展類時出現抽象錯誤

Question

type 
    TObjA = class 
    a: string; 
    end; 
type 
    worker<T> = interface 
    function step1(v: integer): T; 
    function step2(s: string): T; 
    end; 

type 
    ImplA<T> = class(TInterfacedObject, worker<T>) 
    function step1(v: integer): T; 
    function step2(s: string): T; virtual; abstract; 
    end; 

type 
    ImplB = class(ImplA<TObjA>) 
    function step2(s: string): TObjA; 
    end; 
implementation 


function ImplA<T>.step1(v: integer): T; 
begin 
    result := step2(IntToStr(v)); 
end; 

function ImplB.step2(s: string): TObjA; 
var 
    r: TObjA; 
begin 
    r := TObjA.Create; 
    r.a := 'step2 ' + s; 
    result := r; 
end; 

我試圖根據此結構構建功能。我知道它在java中工作，但目前我在delphi 2010工作。 當調用ImplB.step1（1） 我得到一個抽象的錯誤我該如何解決這個問題？

Answer 1

由於您沒有聲明function step2(s: string): TObjA;爲override，所以出現錯誤。

所以在

function ImplA<T>.step1(v: integer): T; 
begin 
    result := step2(IntToStr(v)); 
end; 

它呼籲從ImplA不ImplBstep2因爲你是它期待

你也從一個普通的對象改變返回類型TObjA，編譯器可能不一樣， ，但我沒有支持仿製藥的德爾福副本進行測試。