delphi – 有没有办法从* outside *声明的例程中更改本地类型的常量？

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

解决方法@H_262_13@

好吧,它只能通过泄漏指向可写入类型常量的指针来完成.这是一个以相当复杂的方式打印野兽数量的例子：

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.

由于局部范围仅限于定义它的函数,因此上述方法是唯一可行的解​​决方案.