Fórum É possível alterar o valor de constantes? #176979

procedure ChangeConst(const Constant; var Value; Size: Integer);
begin
  Move((@Value)^, (@Constant)^, Size);
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  TestStrConst: string = ´Valor inicial´;
  TestInteger: Integer = 1234;
var
  NewString: string;
  NewInteger: Integer;
begin
  // Exemplo para Strings:
  ShowMessage(´Antes da ChangeConst (TestStrConst): ´ + TestStrConst);
  NewString := ´Novo Valor´;
  ChangeConst(TestStrConst, NewString, SizeOf(string));
  ShowMessage(´Depois da ChangeConst (TestStrConst): ´ + TestStrConst);
  // Exemplo para Integers:
  ShowMessage(´Antes da ChangeConst (TestInteger): ´ + IntToStr(TestInteger));
  NewInteger := 5678;
  ChangeConst(TestInteger, NewInteger, SizeOf(Integer));
  ShowMessage(´Depois da ChangeConst (TestInteger): ´ + IntToStr(TestInteger));
end;