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