/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_constructors.pas
30 строк
372 B
Ivan Bondarev
#2196
06 янв 2021, 21:23
06 янв 2021, 21:23
9bd8efc
Код
Авторство
О чём код?
var sss: string; type t1 = class constructor; procedure p0 := exit; end; t2 = class constructor(f: ()->()) := f(); end; constructor t1.Create; begin foreach var i in Arr(0) do begin var s := 'tt'; new t2(()-> begin var s2 := s; sss := s; end); end; end; begin t1.Create.p0; assert(sss = 'tt'); end.