Có cách nào để thay đổi hằng số được nhập cục bộ từ * bên ngoài * thường trình khai báo không?

Question

Xin lưu ý rằng đây chỉ là một thử nghiệm suy nghĩ.
Tôi biết toàn cầu (tĩnh) vars là xấu và phạm vi vi phạm là một ý tưởng tồi trong mọi trường hợp.

Xét đoạn mã sau:

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

Giả sử hằng ghi đã được bật, làm thế nào tôi có thể thay đổi giá trị của CanIBeChanged từ bên ngoài phạm vi của hàm nó khai báo trong?

PS Không, tôi không có ý định sử dụng mã này chỉ là một câu hỏi không quan tâm.

Answer 1

Vâng, nó chỉ có thể được thực hiện bằng cách rò rỉ một con trỏ đến hằng số có thể ghi. Dưới đây là một ví dụ mà phải mất một cách khá phức tạp để in số lượng con thú:

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. 

Kể từ phạm vi một địa phương được giới hạn chức năng, trong đó nó được định nghĩa, phương pháp nêu trên là chỉ có thể dung dịch.