Hola.
Código Delphi
[-]
const
{$J+} Numero : Integer = 30;
Cadena : string = 'Club Delphi 2020';
{$J-}
procedure TForm1.Button1Click(Sender: TObject);
begin
Numero := 15;
Cadena := 'Corona virus 2020';
ShowMessage(Numero.ToString + #10 + Cadena);
end;
Pero no es aconsejable esos atajos para modificar las
constantes ya que desactiva las optimizaciones que el compilador prevee para con con estas.
Con el mismo resultado y toda la seguridad, podes usar variables en su lugar:
Código Delphi
[-]
var
Numero : Integer = 30;
Cadena : string = 'Club Delphi 2020';
pNumero : Integer absolute Numero;
pCadena : string absolute Cadena;
procedure TForm1.Button1Click(Sender: TObject);
begin
pNumero := 15;
pCadena := 'Corona virus 2020';
ShowMessage(Numero.ToString + #10 + Cadena);
end;
Saludos