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

发布时间：2020-12-15 04:15:20 所属栏目：大数据来源：网络整理

导读：请注意,这只是一个思想实验. 我知道全局(静态)变量很糟糕,在任何情况下破坏范围都是一个坏主意. 请考虑以下代码： function IsItChanged: integer;const CanIBeChanged: integer = 0;begin Result:= CanIBeChanged; end; 假设已启用可写常量,如何从声明的函

请注意,这只是一个思想实验.
我知道全局(静态)变量很糟糕,在任何情况下破坏范围都是一个坏主意.

请考虑以下代码：

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

假设已启用可写常量,如何从声明的函数范围之外更改CanIBeChanged的值？

PS不,我不打算永远使用这个代码,这只是一个有趣的问题.

解决方法

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

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.

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!