/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/nested4.pas
24 строки
303 B
Бондарев Иван
bug fix
08 май 2016, 20:45
08 май 2016, 20:45
47b5080
Код
Авторство
О чём код?
type TreeNode = class a: integer; end; procedure Test(var t: TreeNode); procedure Nested; procedure Nested2; begin t.a += 1; if t.a < 10 then Nested; end; begin Nested2; end; begin Nested; end; begin var t := new TreeNode; t.a := 2; Test(t); assert(t.a = 10); end.