Скачать: CL | DM;

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

← →
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 назови без разницы. Это только соглашение же ж.

---

← →
Игорь Шевченко ©   (2005-11-03 10:25) [6]

Polevi ©   (03.11.05 10:14) [4]

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


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

---

← →
kblc ©   (2005-11-11 14:18) [7]

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

---

← →
Суслик ©   (2005-11-11 14:23) [8]

2автор

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c