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.
|