Ver Mensaje Individual
  #2  
Antiguo 14-03-2020
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Código Delphi [-]
const
{$J+}  // (o activar Assignable typed constants)
  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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita