/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/Deconstructs2.pas
18 строк
232 B
Ivan Bondarev
#2833
09 апр 2023, 11:47
09 апр 2023, 11:47
77b5121
Код
Авторство
О чём код?
var i: integer; type t1 = class procedure Deconstruct; begin i := 1; end; end; begin var o := new t1; if o is t1(var a) then begin i := 2; assert(o = a); end; assert(i = 2); end.