Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   ayuda cambiar nombre (https://www.clubdelphi.com/foros/showthread.php?t=94516)

MesiasPeru 13-03-2020 23:29:22

ayuda cambiar nombre
 
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 14-03-2020 01:42:00

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 14-03-2020 02:16:34

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 14-03-2020 02:24:44

mi codigo es asi:

Código:

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.


La franja horaria es GMT +2. Ahora son las 08:19:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi