delphi - 测试接口(interface)是否等于类型参数

Question

我有一个可以容纳接口(interface)的列表。
我想要一个删除功能，它只删除支持特定接口(interface)的项目。

type
  TMyList<T: IFoo> = class
    procedure Remove(const Item: T); overload; 
    procedure Remove<I: IBar>(const Item: T); overload;
  end;

procedure TMyList<T>.Remove<I>(const Item: T);
begin
  if Supports(Item, I) then Remove(Item);
end;

E2250 There is no overloaded version of 'Supports' that can be called with these arguments

有没有办法可以做到这一点？

Answer 1

是的，虽然您不能像这样传递接口(interface)类型参数，但您可以传递 TGUID并将接口(interface)类型分配给 TGUID ，前提是您首先在接口(interface)声明中声明了 GUID。

例子

type
  IFoo = interface
    ['{93863A49-5014-4AE5-A7CF-F3F2E044CE57}']  //<Ctrl>+<Shift>+G
   ....
  end;

  IBar = interface(IFoo)
    ['{88888888-5014-4AE5-A7CF-F3F2E044CE57}']
    ....
  end;

  procedure TFooList.Remove(const Item: IFoo; const MustBeA: TGuid); {overload;}
  begin
    if Supports(Item, MustBeA) then Remove(Item);

  ....
  for i:= 0 to count-1 do begin
    //Only remove IBar16 items
    MyFooList.Remove(FooList[i], IBar16);
  end;