/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_capture_foreach_seq2.pas
17 строк
240 B
Mikhalkovich Stanislav
fix #1984
09 июн 2019, 08:50
09 июн 2019, 08:50
4610ce2
Код
Авторство
О чём код?
type t1 = class s := Seq&<byte>(2,2,2); procedure p1; begin var p: procedure := ()-> begin foreach var tsk in s do Assert(tsk=2) end; p; end; end; begin t1.Create.p1 end.