/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_capture_const.pas
23 строки
335 B
Ivan Bondarev
fix #2924
13 ноя 2023, 23:43
13 ноя 2023, 23:43
475af1c
Код
Авторство
О чём код?
var i: integer; type c1 = class en1: (const1, const2); procedure pr1; begin var v1: c1 := self; en1 := const2; var f: ()-> (); f := ()-> begin assert(v1.en1 = const2); i := 1; end; f; end; end; begin var o := new c1; o.pr1; assert(i = 1); end.