/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_2_lambda.pas
25 строк
313 B
Mikhalkovich Stanislav
fix #1893
26 июн 2019, 16:39
26 июн 2019, 16:39
95a9321
Код
Авторство
О чём код?
type t1 = class pf: procedure; procedure p1; begin var obj: byte; var lp2: procedure := ()-> begin obj := obj; pf := ()-> begin Print(1); end; pf; end; lp2; end; end; begin t1.Create.p1; end.