Могу ли я использовать виртуальные абстрактные методы для наследования сопряженного объекта?

Question

У меня есть интерфейс и соответствующий ему объект. Например ...

IMyInterface = interface 
    function GetSomething: WideString; 
    procedure SetSomething(const Value: WideString); 
    property Something: WideString read GetSomething write SetSomething 
    end; 

    TMyObject = class(TInterfacedObject, IMyInterface) 
    private 
    function GetSomething: WideString; 
    procedure SetSomething(const Value: WideString); 
    public 
    property Something: WideString read GetSomething write SetSomething 
    end; 

Я использую этот интерфейс, чтобы иметь возможность взаимодействовать с этим объектом через DLL.

Теперь я хотел бы, чтобы наследовать этот объект и переопределить некоторые из этих методов ...

TMyOtherObject = class(TMyObject) 
    private 
    function GetSomething: WideString; override; 
    procedure SetSomething(const Value: WideString); override; 

Только я хотел бы сделать базовые поля виртуальными и абстрактными в основном заставить ребенок наследовать их. ..

TMyObject = class(TInterfacedObject, IMyInterface) 
    private 
    function GetSomething: WideString; virtual; abstract; 
    procedure SetSomething(const Value: WideString); virtual; abstract; 

Могу ли я это сделать, и интерфейс по-прежнему работает с этими полями? И мне нужно определить его так же в интерфейсе? (Я знаю, конечно, все поля в интерфейсе уже абстрактны)

Answer 1

Вы действительно можете это сделать. Виртуальный метод, абстрактный или иной, может использоваться для удовлетворения контракта с интерфейсом.

Вы не можете объявить методы интерфейса virtual или abstract. Это не имеет никакого смысла, потому что virtual и abstract являются свойствами реализации, а не интерфейсом.

Наконец, вам не нужно объявлять свойство снова в объекте-реализации. Поскольку я ожидаю, что вы будете ссылаться только на эти объекты через интерфейс, он не делает повторения объявления свойства.

Вот простая программа, чтобы доказать точку:

{$APPTYPE CONSOLE} 

type 
    IMyInterface = interface 
    procedure Foo; 
    end; 

    TMyObject = class(TInterfacedObject, IMyInterface) 
    private 
    procedure Foo; virtual; abstract; 
    end; 

    TMyOtherObject = class(TMyObject) 
    private 
    procedure Foo; override; 
    end; 

procedure TMyOtherObject.Foo; 
begin 
    Writeln(ClassName); 
end; 

var 
    Intf: IMyInterface; 

begin 
    Intf := TMyOtherObject.Create; 
    Intf.Foo; 
    Readln; 
end.