/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/lambda_closure_static_fields.pas
45 строк
668 B
Бондарев Иван
fix #1737
17 фев 2019, 20:20
17 фев 2019, 20:20
88e8b54
Код
Авторство
О чём код?
type t2 = class public static sv := 0; end; t1 = class public static sv := 0; public sv2: integer; public static procedure p1; begin var v := 0; var p: ()->() := ()->begin v := v; sv := 5; t2.sv := 5; end; p; end; public procedure p2; begin var v := 0; var p: ()->() := ()->begin v := v; sv := 6; t2.sv := 6; sv2 := 2; end; p; end; end; begin t1.p1; assert(t1.sv = 5); assert(t2.sv = 5); var o := new t1; o.p2; assert(t1.sv = 6); assert(t2.sv = 6); assert(o.sv2 = 2); end.