18 lines
232 B
ObjectPascal
18 lines
232 B
ObjectPascal
var i:=2;
|
|
pi:pinteger;
|
|
p:pointer;
|
|
|
|
begin
|
|
//implicit
|
|
p:=@i;
|
|
//pi:=p;//delphi
|
|
|
|
//explicit
|
|
pi:=pinteger(p);
|
|
writeln(pi^);
|
|
i:=integer(p);
|
|
writeln(i);
|
|
p:=pointer(i);
|
|
p:=pointer(@i);
|
|
//pi:=pinteger(i);
|
|
end. |