Czy istnieje sposób na zmianę lokalnej stałej pisanej z * poza * procedura, w której została zadeklarowana?

Question

Należy pamiętać, że jest to tylko eksperyment myślowy.
Wiem, że globalne (statyczne) vary są złe, a łamanie zasięgu jest w każdym razie złym pomysłem.

Rozważmy następujący kod:

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

Zakładając zapisywalnych stałe zostały włączone, w jaki sposób można zmienić wartość CanIBeChanged spoza zakresu funkcji to zadeklarowanej?

PS Nie Nie zamierzam nigdy używać tego kodu, to tylko kwestia, która jest przedmiotem zainteresowania.

Answer 1

Cóż, można to zrobić tylko przeciekając wskaźnik do zapisywanej stałej pisanej. Oto przykład, który trwa dość zawiłą drogę do wydrukowania liczbę Bestii:

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. 

Ponieważ zakres lokalny ogranicza się do funkcji w którym jest zdefiniowana, opisane powyżej podejście jest jedynym możliwym rozwiązanie.