/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/interface5.pas
19 строк
425 B
Ivan Bondarev
#2607
23 янв 2022, 16:29
23 янв 2022, 16:29
3b8fa5f
Код
Авторство
О чём код?
type I1 = interface property p1: byte read write; end; //Ошибка: Класс t1 не реализует метод get_p1:byte интерфейса I1 t1 = class(I1) public b: byte; b2: byte; public property I1.p1: byte read b write b; public property p1: byte read b2; end; begin var o: I1 := new t1; o.p1 := 1; assert(o.p1 = 1); var o2 := o as t1; assert(o2.p1 = 0); end.