/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/partial_constructor3.pas
21 строка
316 B
Sun Serega
fix #2440
09 фев 2021, 15:43
09 фев 2021, 15:43
f303ea1
Код
Авторство
О чём код?
var x: string; type t1 = partial class constructor := x += '1'; constructor(p: byte) := x += '2'; end; t0 = class constructor := x += '3'; end; t1 = partial class(t0) end; begin x := ''; new t1; Assert(x = '31'); x := ''; new t1(1); Assert(x = '32'); end.