/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/partial_generics2.pas
29 строк
501 B
Ivan Bondarev
#2446
31 авг 2021, 21:30
31 авг 2021, 21:30
4e49061
Код
Авторство
О чём код?
var i: integer; procedure p0(x: byte); begin i := x; end; type t1 = partial class end; t2 = partial class(t1) end; t0<T> = class x: T; end; t1 = partial class(t0<byte>) end; t2 = partial class//(t1) // Если указать наследование от t1 - ошибки нет //Ошибка: Нельзя преобразовать тип T к byte procedure p1 := p0(x); end; begin var o := new t2; o.x := 2; o.p1; assert(i = 2); end.