/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/staticclass1.pas
19 строк
241 B
Бондарев Иван
static classes #772
22 сен 2018, 18:49
22 сен 2018, 18:49
3dc45ff
Код
Авторство
О чём код?
var i: integer; type TClass = static class class j: integer; class property p: integer read j write j; class procedure Test; begin i := 1; end; end; begin TClass.Test; assert(i = 1); TClass.p := 2; assert(TClass.p = 2); end.