Delphi-Quellcode:
const
i: Integer = 123;
begin
Writeln('0x', Integer(@i));
Writeln(PInteger(@i)^);
PInteger(@i)^ := 666;
Writeln(i);
Readln;
end.
ueber pointer laesst sich die konstante i aendern. folglich muss sie im arbeitsspeicher liegen.
(geht aber auch nur mit typisierten konstanten).
funktioniert zumindest mit fpc wunderbar (auch ohne {$J+})