/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_capture_foreach_seq.pas
24 строки
343 B
Mikhalkovich Stanislav
bug fix #976
08 июн 2019, 21:54
08 июн 2019, 21:54
8b87443
Код
Авторство
О чём код?
type t0 = class public s1: sequence of integer; end; t1 = class procedure p1; begin var a2: t0; var a1: t0; foreach var x in a1.s1 do begin var p: procedure := ()-> begin writeln(x); a1 := a1; end; end; end; end; begin Assert(1=1); end.