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

Interface...   Найти похожие ветки 

← →
ZENsan ©   (2008-06-03 15:19) [0]


TType1 = class(TSomeObject, IInterface1)
 ...
end;

TType2 = class(TSomeObject, IInterface2)
 ...
end;

var
 Obj1: TType1;
 Obj2: TType2;
 X: TObject;

begin
 X := Какой-то объект TType1/TType2


Как проверить что X поддерживает IInterface2 (без исключений)?

Я пробовал if X.GetInterface(IID_Interface2, Idc) then.. не пашет.. (IS само собой тут не годится)
Чё-то я незнаю даже теперь как это узнать без:

try
 IInterface2(X).Someproc;
except
 all is ok..
end;


---

← →
ZENsan ©   (2008-06-03 15:28) [1]

Проблема в последнем, что интерфейс может быть пустым... и тогда просто даже нечего вызывать.

---

← →
Игорь Шевченко ©   (2008-06-03 15:45) [2]

Учимся оформлять вопрос

---

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

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



Память: 0.45 MB
Время: 0.021 c