ayuda cambiar nombre

[MesiasPeru]

Hola anteriormente usando delphi pude cambiar valores numericos ejemplo:

const
Numero = &14522145; // el valor de ese codigo puede ser 30 ejemplo y yo lo cambiare por 15

pbyte(Numero)^:=15;

esto siempre me a funcionado, pero ahora deseo cambiar un codigo que su valor son letras o caracteres ejemplo

conts
Nombre = &2548988; // el valor de ese codigo puede ser: Club Delphi(2020)

y lo deseo cambiar por: Corona Virus(2020)
yo intente asi

pstring(Nombre)^:='Corona Virus(2020)';

PERO NO FUNCIONA

[ecfisa]

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

[MesiasPeru]

entiendo, pero el metodo que uso me funciona bien, ademas no siempre sera el valor de origen 30 o Club delphi(2020) esos valores cambian constantemente.

[MesiasPeru]

mi codigo es asi:

const

  Numero = &14522145; //este codigo "14522145" guarda un valor que siempre cambia puede ser 10 o 50 o 100 y asi...

procedure TForm1.Button1Click(Sender: TObject);
begin
  pbyte(Numero)^:=15; //y con esto hago que ese codigo sea solo 15
end;

pero ahora yo quiero para el caso de letras.