Главная страница
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.018 c
2-1212061268
Max
2008-05-29 15:41
2008.06.29
Открыть файл API


2-1212484394
D@nger
2008-06-03 13:13
2008.06.29
MDI окно и хэндл


15-1210925436
Ega23
2008-05-16 12:10
2008.06.29
Года полтора-два назад тема была


15-1210903242
Slider007
2008-05-16 06:00
2008.06.29
С днем рождения ! 16 мая 2008 пятница


11-1190364115
grim
2007-09-21 12:41
2008.06.29
по поводу создания форм