17 lines
187 B
ObjectPascal
17 lines
187 B
ObjectPascal
|
type
|
|||
|
|
I1<T> = interface;
|
|||
|
|
I2<T> = interface;
|
|||
|
|
|
|||
|
|
I1<T> = interface(I2<T>)
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
I2<T> = interface(I1<T>)
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
type t1=class(I1<byte>) end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
new t1;
|
|||
|
|
end.
|