6 lines
83 B
ObjectPascal
6 lines
83 B
ObjectPascal
|
uses u_generics3;
|
|||
|
|
begin
|
|||
|
|
var q: t1 := new t1;
|
|||
|
|
q.p1;
|
|||
|
|
assert(q.i = 2);
|
|||
|
|
end.
|