20 lines
323 B
ObjectPascal
20 lines
323 B
ObjectPascal
|
type
|
|||
|
|
// Не обязательно auto класс, я добавил только ради конструктора
|
|||
|
|
t0 = auto class
|
|||
|
|
f: byte;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure p1<T>(o: T); where T: t0;
|
|||
|
|
begin
|
|||
|
|
assert(o.f = 123);
|
|||
|
|
|
|||
|
|
var p := procedure->
|
|||
|
|
begin
|
|||
|
|
var o2 := o;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
p1(new t0(123));
|
|||
|
|
end.
|