/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_constructors2.pas
27 строк
372 B
Ivan Bondarev
#2196
06 янв 2021, 21:23
06 янв 2021, 21:23
9bd8efc
Код
Авторство
О чём код?
type TBase = class o: object; constructor; begin o := new object; end; end; TDer = class(TBase) constructor; begin var obj := o; var f: ()->() := ()->assert(obj <> nil); f(); end; constructor (i: integer); begin var obj := o; var f: ()->() := ()->assert(obj <> nil); f(); end; end; begin new TDer; new TDer(2); end.