有没有办法改变一个局部类型的常量* *它在外部声明的例程？

Question

请注意，这只是一个思想实验。
我知道全局（静态）变量是不好的，在任何情况下，打破范围都是一个坏主意。

考虑下面的代码：

function IsItChanged: integer; 
const 
    CanIBeChanged: integer = 0; 
begin 
    Result:= CanIBeChanged; 
end; 

假设写常量已启用，我怎么可以从它在声明的功能范围之外的改变CanIBeChanged价值？

PS不，我不打算永远使用这个代码，这只是一个出于兴趣的问题。

Answer 1

嗯，它只能通过泄漏指针到可写类型常量来完成。这里是采用一个颇为曲折方式打印的兽的数目的示例：

program NaughtyNaughtyVeryNaughty;{$J+} 
{$APPTYPE CONSOLE} 
procedure Test(out MyPrivatesExposed: PInteger); 
const 
    I: Integer=665; 
begin 
    MyPrivatesExposed := @I; 
    inc(I); 
end; 

var 
    I: PInteger; 
begin 
    Test(I); 
    Writeln(I^); 
    Readln; 
end. 

由于本地的范围被限制在其中它被定义的功能，上面概述的方法的唯一可能的解。