兑现了派生interface的对象不支持基interface
实现了派生interface的对象不支持基interface
既然IDerive从IBase继承，那么TMyObject实现了IDerive当然就实现了IBase，为什么到基接口的转换不可以呢？我想编译器拒绝这么做应该有一定的道理，但是我不知道原因。
我觉得
------解决方案--------------------
回答一下你最开始的提问, 见代码注释
本帖最后由 kingyo 于 2013-02-02 20:59:17 编辑
有一个基接口IBase，一个派生接口IDerive，一个类实现了派生接口，是无法直接从该类对象中获得基接口的。例如：
type
IBase = interface
['{87698B00-30FC-49F6-9CAE-F8DE39773D94}']
end;
IDerive = interface(IBase)
['{FB597533-3125-41B6-94D7-53A871097635}']
end;
TMyObj = class(TInterfacedObject, IDerive)
end;
procedure DoSome;
var
o : TMyObject;
ib : IBase;
begin
o := TMyObject.Create;
ib := o; //Compile error!
ib := o as IBase; //Runtime error!
end;
既然IDerive从IBase继承，那么TMyObject实现了IDerive当然就实现了IBase，为什么到基接口的转换不可以呢？我想编译器拒绝这么做应该有一定的道理，但是我不知道原因。
我觉得
TMyObj = class(TInterfacedObject, IDerive)
TMyObj = class(TInterfacedObject, IBase, IDerive) //非得这么写？
------解决方案--------------------
回答一下你最开始的提问, 见代码注释
unit Unit13;
interface
type
IBase = interface
['{87698B00-30FC-49F6-9CAE-F8DE39773D94}']
procedure ProcA;
end;
IDerive = interface(IBase)
['{FB597533-3125-41B6-94D7-53A871097635}']
procedure ProcB;
end;
TMyObj = class(TInterfacedObject, IDerive)
public
procedure ProcA;
procedure ProcB;
procedure ProcC;
end;
procedure DoSome;
implementation
procedure DoSome;
var
o : TMyObj;
Base : IBase;
Derive : IDerive;
begin
o := TMyObj.Create;
try
o.ProcA;
o.ProcB;
o.ProcC;
//以下两句无法通行, 因为TMyObj的接口不直接包含IBase, 无法越级向上转换. 和对象的向上转换不同.
{Base := IBase(o);
IBase(o).ProcA;
}
//下边的就可以通行
//////////////////////////////////////
/// IDerive是TMyObj的直接声明接口
IDerive(o).ProcA;
IDerive(o).ProcB;
Derive := IDerive(o);
Derive.ProcA;
Derive.ProcB;
/// 可以通过多次转换达到目的--IBase
IBase(IDerive(o)).ProcA;
Base := IDerive(o);
Base.ProcA;
finally
o.Free;
end;
end;
{ TMyObj }
procedure TMyObj.ProcA;
begin
end;
procedure TMyObj.ProcB;
begin
end;
procedure TMyObj.ProcC;
begin