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