12 lines
339 B
ObjectPascal
12 lines
339 B
ObjectPascal
|
type
|
|||
|
|
i1 = interface
|
|||
|
|
procedure p1;
|
|||
|
|
end;
|
|||
|
|
//Ошибка: Функция класса c1, реализующая метод p1 интерфейса i1, должна быть нестатической с уровнем доступа public
|
|||
|
|
c1 = class(i1)
|
|||
|
|
procedure i1.p1 := exit;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var obj := new c1;
|
|||
|
|
end.
|