/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/errors/err0410.pas
25 строк
435 B
Ivan Bondarev
error test for with
04 апр 2021, 12:24
04 апр 2021, 12:24
88e6383
Код
Авторство
О чём код?
type node = class i: integer; function f1: node := new node; end; begin var n1 := new node; var n2: node; with n1 do begin // Обязательно вложенный with n2 := f1; with n2 do begin i := 2; end; // Обязательно вызвать метод после вложенного with f1; i := 1; end; f1; assert(n1.i = 1); assert(n2.i = 2); end.