有没有办法从*外部*它声明的例程中更改局部类型常量？

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.

由于局部变量的范围仅限于定义它的函数，因此上述方法是唯一可能的解决方案。