/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/classfield2.pas
23 строки
358 B
Бондарев Иван
bug fix in NETGenerator
28 мар 2017, 22:34
28 мар 2017, 22:34
bf05947
Код
Авторство
О чём код?
type TRec = record a: integer; end; cls = record class i: integer := 3; class obj: object := new object; class rec: TRec; end; begin assert(cls.i = 3); assert(cls.obj <> nil); with cls do begin i := 2; assert(i = 2); rec := new TRec; rec.a := 2; assert(rec.a = 2); end; end.