12 lines
285 B
ObjectPascal
12 lines
285 B
ObjectPascal
|
//!Совместное использование модификаторов override и reintroduce недопустимо
|
|||
|
|
type
|
|||
|
|
c1 = abstract class
|
|||
|
|
procedure p1; abstract;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
c2 = class (c1)
|
|||
|
|
procedure p1; reintroduce; override;
|
|||
|
|
begin end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin end.
|