/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/errors/err0228.pas
28 строк
681 B
Бондарев Иван
tests for virtual properties
08 авг 2017, 19:33
08 авг 2017, 19:33
948632c
Код
Авторство
О чём код?
{$reference 'PresentationFramework.dll'} {$reference 'WindowsBase.dll'} {$reference 'PresentationCore.dll'} {$reference 'WindowsFormsIntegration.dll'} {$apptype windows} uses System.Windows; uses System.Windows.Media; type MyVisualHostBase = class(FrameworkElement) public function getCnt: integer; begin Result := VisualChildrenCount; end; end; MyVisualHost = class(MyVisualHostBase) function getVisualChildrenCount: integer; begin Result := 1; end; protected property VisualChildrenCount2: integer read getVisualChildrenCount; override; end; begin var obj: MyVisualHostBase := new MyVisualHost; assert(obj.getCnt=1); end.