Есть ли у класса интерфейс?

← →
kblc © (2005-11-03 09:39) [0]

Уважаемые мастера, у меня к вам вопрос:
Как проверить, экспортирует ли класс интерфейс?

К примеру: У меня есть класс TExControl=class(TControl) .
Я перебираю на форме все контролы (Controls[i]: TControl), и мне нужно знать, есть ли у НАСЛЕДНИКА этого класса опр. интерфейс.

Такое вообще возможно?
Оч. жду вашего ответа.

← →
kblc © (2005-11-03 09:41) [1]

Прошу прощения, ошибся:
TExControl=class(TControl, TMyInterface)

← →
MBo © (2005-11-03 09:43) [2]

TObject.GetInterface

← →
WondeRu © (2005-11-03 10:08) [3]

kblc © (03.11.05 9:41) [1]
TExControl=class(TControl, TMyInterface)
может все-таки IMyInterface, или сбылась моя мечта (множественное наследование в Delphi)?

← →
Polevi © (2005-11-03 10:14) [4]

>множественное наследование
а вот этого не надо

← →
Sergey_Masloff (2005-11-03 10:23) [5]

Polevi © (03.11.05 10:14) [4]
>а вот этого не надо
Поддерживаю.

WondeRu © (03.11.05 10:08) [3]
>TExControl=class(TControl, TMyInterface)
>может все-таки IMyInterface,
Да хоть GMyInterface назови без разницы. Это только соглашение же ж.

Polevi © (03.11.05 10:14) [4]

> а вот этого не надо

Всякий овощ приносит пользу, будучи употреблен надлежащим образом в надлежащее время. В том числе и множественное наследование. А уж реализация множества интерфейсов всяко приносит пользу.

Прошу прощения за опечатку,
TExControl=class(TControl, IMyInterface)

2автор

if Supports(Controls[i], IMyInterface) then
...

Есть ли у класса интерфейс? Найти похожие ветки