Generische Interface-GUIDs

[himitsu]

Delphi-Quellcode:

type
  IGenItf<T> = geninterface
    // Keine GUID hier (oder doch, aber egal)
    function Foo: T;
    procedure Poo;
  end;

type
  IIntItf = interface(IGenItf<Integer>)
    ['{123.......}']
  end;
  IStrItf = interface(IGenItf<String>)
    ['{456.......}']
  end;

  TImplObject = class(TInterfacedObject, IIntItf, IStrIntf)
    ...