/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/explicitinterface13.pas
12 строк
339 B
Ivan Bondarev
#2866
01 ноя 2023, 21:14
01 ноя 2023, 21:14
a1aae54
Код
Авторство
О чём код?
type i1 = interface procedure p1; end; //Ошибка: Функция класса c1, реализующая метод p1 интерфейса i1, должна быть нестатической с уровнем доступа public c1 = class(i1) procedure i1.p1 := exit; end; begin var obj := new c1; end.