9 lines
149 B
ObjectPascal
9 lines
149 B
ObjectPascal
|
begin
|
|||
|
|
var a := new PInteger[2];
|
|||
|
|
var i := 1;
|
|||
|
|
a[0] := @i;
|
|||
|
|
SetLength(a, 1);
|
|||
|
|
assert(a[0] = @i);
|
|||
|
|
SetLength(a, 3);
|
|||
|
|
assert(a[0] = @i);
|
|||
|
|
end.
|