如何用泛型方法繼承類？

Question

有一類

TFoo = class 
    function GetValue<T>: T; 
    procedure SetValue<T>(AValue: T); 
end; 

編譯器不允許定義這一類的方法爲virtual。 怎麼樣

TChildFoo = class(TFoo) 

可能會使用祖先的方法嗎？

Answer 1

正如您所觀察到的，泛型方法不能是虛擬的。這種類型的

type 
    TFoo = class 
    function Bar<T>: T; virtual; 
    end; 

被拒絕，並出現以下錯誤編譯：

E2533 Virtual, dynamic and message methods cannot have type parameters

你的類被聲明如下：

type 
    TFoo = class 
    function GetValue<T>: T; 
    procedure SetValue<T>(AValue: T); 
    end; 

你問如何子類可以使用這些方法。舉例來說，你可以這樣做：

type 
    TChildFoo = class(TFoo) 
    procedure DoSomething<T>; 
    end; 

.... 

procedure TChildFoo.DoSomething<T>; 
begin 
    SetValue(GetValue<T>); 
end; 

換句話說，你當然可以用在父類中的這些方法。你只是不能聲明它們是虛擬的並覆蓋它們。

如果您有參數化的類（而不是參數化的方法），那麼您可以聲明虛擬方法並覆蓋它們。

type 
    TFoo<T> = class 
    function Bar: T; virtual; 
    end; 

    TChildFoo<T> = class(TFoo<T>) 
    function Bar: T; override; 
    end; 

因此，這些是您的選擇。至於如何解決你的問題，這很大程度上取決於問題是什麼。