Главная страница
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.015 c
2-1212121612
Dymok
2008-05-30 08:26
2008.06.29
Как узнать путь к каталогу документов пользователя


15-1211024318
may be I am noob...
2008-05-17 15:38
2008.06.29
Вопрос по Apache (.htaccess)


2-1212269187
Randew
2008-06-01 01:26
2008.06.29
Помогите найти ошибку, пожалуйста...


15-1208404328
brother
2008-04-17 07:52
2008.06.29
Совет по железу


15-1210747700
Stas
2008-05-14 10:48
2008.06.29
Купили fastreport4 и fastreport server