[dr. F.I.N.]

Сижу и туплю.

Код:

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? Или обязательно делать так:

Код:

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

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

[lmikle]

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

[dr. F.I.N.]

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

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

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