/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/class_interf.pas
18 строк
228 B
Mikhalkovich Stanislav
fix #2289
10 авг 2020, 23:07
10 авг 2020, 23:07
434f846
Код
Авторство
О чём код?
type i1 = interface procedure p; end; c1 = abstract class(i1) public procedure p; begin Assert(111=111); end; end; c2 = sealed class(c1) end; begin var a := new c2 as i1; a.P end.