11 lines
256 B
ObjectPascal
11 lines
256 B
ObjectPascal
|
uses u_abstract3;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
|
|||
|
|
// обязательно t3 - тип из другого модуля
|
|||
|
|
//Ошибка: Абстрактный класс не может иметь атрибут sealed
|
|||
|
|
t4 = sealed class(t3) end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
new t4;
|
|||
|
|
end.
|