/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/constructor5.pas
27 строк
429 B
Ivan Bondarev
#2842
30 апр 2023, 12:36
30 апр 2023, 12:36
12cad3f
Код
Авторство
О чём код?
var i: integer; type t1 = class private static function init_x: integer; begin Inc(i); end; private static x := init_x; static constructor; end; static constructor t1.Create; begin Inc(i); end; begin new t1; assert(i = 2); assert(typeof(t1).GetConstructors( System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic ).Length = 1); end.