가상 추상 메서드를 사용하여 인터페이스 개체를 상속 할 수 있습니까?

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; 

...이 객체를 상속 이러한 메소드의 일부를 오버라이드 (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.