无法将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; 
    ...