|
#1
|
||||
|
||||
Интерфейсы
Сижу и туплю.
Код:
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. Код:
TSomeClass = class(TInterfacedObject, InterfaceA, InterfaceB) ... end; Грамотно поставленный вопрос содержит не менее 50% ответа. Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть. |