19 lines
242 B
ObjectPascal
19 lines
242 B
ObjectPascal
|
unit u_generics13;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
t1<T> = class end;
|
|||
|
|
|
|||
|
|
t2<T1, T2> = class(t1<t2<T1, T2>>) end;
|
|||
|
|
|
|||
|
|
t3 = class end;
|
|||
|
|
t5 = class end;
|
|||
|
|
t4 = class
|
|||
|
|
|
|||
|
|
static procedure p1<T1, T2>;
|
|||
|
|
begin
|
|||
|
|
new t2<T1, T2>;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|