/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/questionpoint3.pas
13 строк
206 B
miks1965
bug fix #1280
02 окт 2018, 17:53
02 окт 2018, 17:53
1b0077e
Код
Авторство
О чём код?
type TClass = class fByte: byte := 2; end; begin var x: TClass := new TClass; var xxx1 := x=nil ? nil : x.fByte; var xxx := x?.fByte; Assert(xxx.Value=2); Assert(xxx1.Value=2); end.