/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/explicitinterface9.pas
16 строк
239 B
Ivan Bondarev
fix #2038
28 мар 2021, 15:08
28 мар 2021, 15:08
31cf309
Код
Авторство
О чём код?
type I1 = interface property X: integer read; end; T1 = record(I1) property X: integer read 1; property I1.X: integer read 2; end; begin var r: T1; assert(r.X = 1); var r1: I1 := r; assert(r1.X = 2); end.