Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.06.29;
Скачать: 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 вся ветка

Текущий архив: 2008.06.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
9-1170690177
keal
2007-02-05 18:42
2008.06.29
создание 3d моделей


2-1212169209
Katovski
2008-05-30 21:40
2008.06.29
стек


2-1212221404
Pi:=3.14...
2008-05-31 12:10
2008.06.29
Пример ключа в реестр


2-1212434955
Mariana
2008-06-02 23:29
2008.06.29
Запуск приложения


15-1210654618
Slider007
2008-05-13 08:56
2008.06.29
С днем рождения ! 13 мая 2008 вторник