無法將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; 
    ...