21 lines
511 B
ObjectPascal
21 lines
511 B
ObjectPascal
type
|
||
t0<T> = class end;
|
||
function f0<T>(q: t0<T>) := default(T);
|
||
|
||
type
|
||
t1<T> = partial class end;
|
||
t2<T> = partial class
|
||
// Обязательно как то использовать t1<T>, именно с <T>
|
||
o: t1<T>;
|
||
end;
|
||
|
||
t1<T> = partial class(t0<t2<T>>) end;
|
||
t2<T> = partial class
|
||
//Ошибка: Нельзя преобразовать тип t2<T> к t2<T>
|
||
function f1: t2<T> := f0(default(t1<T>));
|
||
end;
|
||
|
||
begin
|
||
var o := new t2<integer>;
|
||
assert(o.f1() = nil);
|
||
end. |