/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/partial_generics3.pas
27 строк
619 B
Ivan Bondarev
#2524
05 окт 2021, 21:45
05 окт 2021, 21:45
72a49dc
Код
Авторство
О чём код?
var i: integer; type t1<T> = class procedure p0; begin i := 1; end; end; // Обязательно промежуточный класс между t1 и t3 t2<T> = partial class(t1<T>) end; // Обязательно t3 НЕ шаблонный t3 = partial class(t2<byte>) end; // Обязательно объявить t2 и t3 дважды t2<T> = partial class(t1<T>) end; t3 = partial class(t2<byte>) // Обязательно вызвать p0 из второго тела t3 procedure p1 := self.p0; end; begin t3.Create.p1; assert(i = 1); end.