/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/explicitinterface11.pas
21 строка
334 B
Ivan Bondarev
winonly
18 апр 2021, 18:45
18 апр 2021, 18:45
4f6f440
Код
Авторство
О чём код?
//winonly type I1 = interface property X: integer read write; end; T1 = record(I1) x1: integer; x2: integer; property X: integer read x1 write x1; property I1.X: integer read x2 write x2; end; begin var r: T1; r.X := 1; assert(r.X = 1); var r1: I1 := r; r1.X := 3; assert(r1.X = 3); end.