11 lines
111 B
ObjectPascal
11 lines
111 B
ObjectPascal
type pint = ^integer;
|
|
|
|
var
|
|
p:pint;
|
|
i:integer;
|
|
begin
|
|
i:=1;
|
|
p:=@i;
|
|
p^:=2;
|
|
assert(p^=2);
|
|
end. |