Как наследовать класс с помощью общего метода?

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; 

Итак, это ваши варианты. Что касается того, как решить вашу проблему, это сильно зависит от проблемы.