pascalabcnet/TestSuite/usesunits/use_abstract2.pas

10 lines
109 B
ObjectPascal
Raw Permalink Normal View History

2023-05-14 12:36:08 +03:00
uses u_abstract2;
type
t2 = abstract class(t1<t2>) end;
t3 = class(t2)
end;
begin
new t3;
end.