/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/defaultparams4.pas
20 строк
358 B
Ivan Bondarev
static readonly properties as default parameters
17 май 2023, 22:06
17 май 2023, 22:06
3ba1328
Код
Авторство
О чём код?
type TClass = class static p: integer = 2; static function getp: integer := p; static property x: integer read p; static property y: integer read getp; end; function f(i: integer := TClass.x): integer; begin Result := i; end; function f2(i: integer := TClass.y): integer; begin Result := i; end; begin assert(f = 2); assert(f2 = 2); end.