Delphi - 다른 인터페이스로 인터페이스

Question

두 개의 인터페이스, ISomeInterfaceRO (읽기 전용) 및 ISomeInterface가 있습니다.

ISomeInterfaceRO = interface(IInterface) ['{B28A9FB0-841F-423D-89AF-E092FE04433F}'] 
function GetTest: Integer; 
    property Test : integer read GetTest; 
end; 

ISomeInterface = interface(ISomeInterfaceRO) ['{C7148E40-568B-4496-B923-89BB891A7310}'] 
    procedure SetTest(const aValue: Integer); 
    property Test : integer read GetTest write SetTest; 
end; 

TSomeClass = class(TInterfacedObject, ISomeInterfaceRO, ISomeInterface) 
private 
    fTest: integer; 
protected 
    function GetTest: integer; 
    procedure SetTest(const aValue: integer); 
public 
    property Test: integer read GetTest write SetTest; 
end; 

function TSomeClass.GetTest: integer; 
begin 
    Result := fTest; 
end; 

procedure TSomeClass.SetTest(const aValue: integer); 
begin 
    fTest := aValue; 
end; 

그 후, 나는 ISomeInterface로 TSomeClass 인스턴스를 생성하고 그것을 채울 경우에만, 한 곳을 제외하고 인터페이스를 읽어 사용합니다. 예 :

Function GetSome: ISomeInterfaceRO; 
var 
    SomeInterface: ISomeInterface; 
begin 
    SomeInterface := TSomeClass.Create; 
    SomeInterface.Test := 10; 
    result := SomeInterface as ISomeInterfaceRO; 
end; 

제 질문은 "결과 : = SomeInterface as ISomeInterfaceRO;"입니다. 안전하고 권장되는 건설입니까? 아니면이 작업을 수행하는 또 다른 방법입니까? 해당 코드를 디버깅하고 컴파일러가 참조 횟수를 ISomeInterface로 적절하게 줄였으며 "as"를 사용하면 ISomeInterfaceRO가 증가했습니다.

Answer 1

Result := SomeInterface as ISomeInterfaceRO; 

전혀 따라서 ISomeInterfaceISomeInterfaceRO에서 상속하기 때문에 SomeInterface가 Result 호환 할당이 필요한 안전하지만,하지 않습니다.

Result := TSomeClass.Create(10);