/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/nullable7.pas
19 строк
397 B
Ivan Bondarev
#2527
10 окт 2021, 15:01
10 окт 2021, 15:01
05f94b9
Код
Авторство
О чём код?
var i: integer; type r1 = record static function operator=(a,b: r1): boolean; begin i := 1; Result := false; end; static function operator<>(a,b: r1) := false; end; begin var n1, n2: r1?; assert(n1 = n2); // Должно быть true, без вызва r1.operator= n1 := new r1; assert(not (n1 <> n1)); assert(not (n1 = n1)); assert(i = 1); end.