宣言されたルーチンからローカルの型付き定数を変更する方法はありますか？

Question

これは単なる実験的な実験です。
私はグローバル（静的）バールが悪いことを知っていますし、どのような場合でもスコープを破ることは悪い考えです。どのように私はそれがで宣言されています関数のスコープ外からCanIBeChangedの値を変更することができ、有効になっている書き込み可能な定数を仮定し

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

：

は、次のコードを考えてみましょうか？

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. 

ローカルの範囲は、それが定義されている機能に限定されているので、上に概説したアプローチにのみ可能です溶液。