기본 인터페이스 유형의 변수에 TMyClass 객체를 할당 할 수 없습니다.

Question

기본 인터페이스 유형의 변수에 클래스를 할당 할 수없는 이유는 무엇입니까?

IInt1 = interface 
    procedure Test1; 
end; 

IInt2 = interface(IInt1) 
    procedure Test2; 
end; 

TCustomClass = class(TInterfacedObject) 
end; 

TMyClass = class(TCustomClass, IInt2) 
    procedure Test1; 
    procedure Test2; 
end; 

var 
    Obj: IInt1; 
begin 
    Obj := TMyClass.Create; // <!-- E2010 Incompatible types: 'IInt1' and 'TMyClass' 
    ... 
end; 


E2010 Incompatible types: 'IInt1' and 'TMyClass' 

컴파일러의 버그 또는 간단하지 허용 동작이된다

우리는 다음이 고려하십시오. 이 문제를 해결할 수 있습니까?

Answer 1

는 선언에 구현 된 인터페이스의 목록에서 IInt1 포함 :

TMyClass = class(TCustomClass, IInt1, IInt2) 
end; 

Answer 2

다음과 같이 세 가지 오류가 위가 있습니다

1. 클래스 선언 인터페이스에 필요한 모든 구성원을 포함해야합니다. 따라서 TMyClass에는 Test1 및 Test2 프로 시저가 정의되어 있어야합니다.
2. 인터페이스에는 아래 코드와 같이 GUID가 있어야합니다. GUID를 표시 할 위치에 커서를 놓고 CTRL-SHIFT-G를 눌러 IDE를 생성합니다.
3. 새 클래스를 할당 할 때 유형 변환에 AS 키워드를 사용해야합니다. 인터페이스 상속은 인터페이스입니다 :

코드 스 니펫 따라서, 그 외에도이

IInt1 = interface 
    ['{218BE5BB-0784-4E4A-923C-F1F1E116F38B}'] 
    procedure Test1; 
end; 

IInt2 = interface(IInt1) 
    ['{635D00B2-AC59-43A9-A7DB-660F53EBCDD8}'] 
    procedure Test2; 
end; 

TCustomClass = class(TInterfacedObject) 
private 
    procedure Test1; 
end; 

TMyClass = class(TCustomClass, IInt2) 
private 
    procedure Test2; 
end; 

... 

var 
    Obj: IInt1; 
begin 
    Obj := TMyClass.Create AS IInt1; 
    ...