/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/question7.pas
14 строк
274 B
Ivan Bondarev
#2697
04 сен 2022, 13:40
04 сен 2022, 13:40
749487e
Код
Авторство
О чём код?
type r1 = record x := 5; function ToString: string; override := x.ToString; end; begin var a := new r1; var s := (if true then a else new r1).ToString; assert(s = '5'); s := ''; s := (if false then a else new r1).ToString; assert(s = '5'); end.