- Код: Выделить всё
program Project1;
type
IIntf1=interface
['{A674A0AF-F02E-48E9-B4CC-1EEB953E0FF1}']
end;
IIntf2=interface(IIntf1)
['{2215CD62-B4CC-4209-B6BA-41BE8C492B07}']
end;
TMyClass=class(TInterfacedObject, IIntf2)
end;
var MyClass:TMyClass;
begin
MyClass:=TMyClass.Create;
if MyClass is IIntf1 then
WriteLn('Класс обладает интерфейсом IIntf1')
else
WriteLn('Класс не обладает интерфейсом IIntf1') //Выполнение по этой линии
end.
Это такая "фишка" или всё-таки "бага"?