11 lines
113 B
ObjectPascal
11 lines
113 B
ObjectPascal
type
|
|
t1=abstract class
|
|
procedure test; abstract;
|
|
end;
|
|
t2=sealed class(t1)
|
|
|
|
end;
|
|
|
|
begin
|
|
|
|
end. |