[dr. F.I.N.]

Сижу и туплю.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

type   InterfaceA = interface(IUnknown)     [some GUID 1]     ....   end;     InterfaceB = interface(InterfaceA)     [some GUID 2]     ....   end;     TSomeClass = class(TInterfacedObject, InterfaceB)     ...   end;     SomeObject: TSomeClass;     Supports(SomeObject, InterfaceB) = True, Supports(SomeObject, InterfaceA) = False.

Как я понимаю InterfaceB тянет за собой все методы InterfaceA, но почему Supports(..., InterfaceA) = False? Есть ли способ узнать, что объект уже реализовывает методы InterfaceA? Или обязательно делать так:

Код:

1 2 3

TSomeClass = class(TInterfacedObject, InterfaceA, InterfaceB)   ... end;

Может есть аналогия с TObject.InheristFrom(ObjectClass)?

[lmikle]

Потому что наследование и имплементация есть разные вещи.
Т.е. наследование интерфейсов идет своим чередом, а вот когда ты создаешь класс имплементатор интерфейса, то берется результат цепочки наследования интерфейсов, а не сама цепочка.

[dr. F.I.N.]

Сообщение от lmikle

Потому что наследование и имплементация есть разные вещи.
Т.е. наследование интерфейсов идет своим чередом, а вот когда ты создаешь класс имплементатор интерфейса, то берется результат цепочки наследования интерфейсов, а не сама цепочка.

В общем-то я так и понял. Спасибо.