Интерфейсы полиморфизма в Delphi

Question

У меня есть два интерфейса один вытекающих из antoher:

type 
    ISomeInterface = interface 
    ['{5A46CC3C-353A-495A-BA89-48646C4E5A75}'] 
    end; 

    ISomeInterfaceChild = interface(ISomeInterface) 
    ['{F64B7E32-B182-4C70-A5B5-72BAA92AAADE}'] 
    end; 

Теперь у меня есть процедура, какой параметр является ISomeInterface как:

procedure DoSomething(SomeInterface: ISomeInterface); 

Я хочу, чтобы проверить, если SomeInterface является ISomeInterfaceChild. Оператор Is не поддерживается в интерфейсах в Delphi 7, и я не могу использовать Supports здесь. Что я могу сделать?

Answer 1

Вы действительно можете использовать Supports. Все, что вам нужно:

Supports(SomeInterface, ISomeInterfaceChild) 

Эта программа показывает:

program SupportsDemo; 

{$APPTYPE CONSOLE} 

uses 
    SysUtils; 

type 
    ISomeInterface = interface 
    ['{5A46CC3C-353A-495A-BA89-48646C4E5A75}'] 
    end; 

    ISomeInterfaceChild = interface(ISomeInterface) 
    ['{F64B7E32-B182-4C70-A5B5-72BAA92AAADE}'] 
    end; 

procedure Test(Intf: ISomeInterface); 
begin 
    Writeln(BoolToStr(Supports(Intf, ISomeInterfaceChild), True)); 
end; 

type 
    TSomeInterfaceImpl = class(TInterfacedObject, ISomeInterface); 
    TSomeInterfaceChildImpl = class(TInterfacedObject, ISomeInterface, ISomeInterfaceChild); 

begin 
    Test(TSomeInterfaceImpl.Create); 
    Test(TSomeInterfaceChildImpl.Create); 
    Readln; 
end. 

Выход

 
False 
True 

Answer 2

Почему вы говорите, что вы не можете использовать функцию Supports? Казалось бы, решение, оно имеет перегруженную версию, которая принимает IInterface в качестве первого параметра так

procedure DoSomething(SomeInterface: ISomeInterface); 
var tmp: ISomeInterfaceChild; 
begin 
    if(Supports(SomeInterface, ISomeInterfaceChild, tmp))then begin 
    // argument is ISomeInterfaceChild 
    end; 

должен делать то, что вы хотите.