/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/errors/err0241.pas
22 строки
373 B
Бондарев Иван
bug fix #865
03 июн 2018, 15:48
03 июн 2018, 15:48
df8a544
Код
Авторство
О чём код?
type t1 = class function GetP1:byte := 0; property P1:byte read GetP1; virtual; end; t2 = class(t1) function NewGetP1:byte; begin var b := inherited self.P1;//тут вызывается NewGetP1 вместо GetP1 end; property P1:byte read NewGetP1; override; end; begin var b := (new t2).p1; end.