fpcsrc/tests/webtbs/tw11431.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{$mode objfpc}
unit tw11431;

interface

uses sysutils;

type

  generic IGenericCollection<_T> = interface
  end;

  generic CGenericCollection<_T> = class(TInterfacedObject, specialize IGenericCollection<_T>)
  end;

implementation


end.