/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/nullable2.pas
20 строк
405 B
Бондарев Иван
bug fix #1888
14 июл 2019, 14:47
14 июл 2019, 14:47
4ca6e04
Код
Авторство
О чём код?
function f: System.Nullable<integer>; begin Result := 2; end; type TRec = record i: integer; end; begin var t := System.Nullable&<integer>(2); assert(t <> 3); assert(t = 2); assert(f = 2); assert(f <> 3); var r, r2: TRec; r.i := 2; r2.i := 3; //assert(System.Nullable&<TRec>(r) = System.Nullable&<TRec>(r)); //assert(System.Nullable&<TRec>(r) <> System.Nullable&<TRec>(r2)); end.