¿Se puede modificar el valor de una constante?
 

Hola! Buenos días,

Puede alguien pensar que me he vuelto loco al hacer la pregunta, ya que la teoría lo deja bien claro. Un valor constante es un valor que no va a cambiar.

Pero os voy a explicar el porqué de la pregunta.

Llevo unos días instalando, probando y aprendiendo las DirectX para Delphi de JEDI http://www.clootie.ru/index.html y también los componentes DelphiX http://www.micrel.cz/Dx/. Y con todo esto he encontrado ejemplos con el siguiente código o muy similar:

Código Delphi [-]
procedure TD3DApplication.ShowStats;
const 
  dwFrames: Cardinal = 0;
var 
  fTime: FLOAT;
begin
  // Keep track of the time lapse and frame count
  fTime := timeGetTime * 0.001; // Get current time in seconds
  Inc(dwFrames);

¡Declaran una constante y después la usan! Como si fuesen variables globales o algo así.

Por todo esto he pensado si era posible hacerlo, quizás cambiando alguna opción del compilaro o algo similar. Ya que dudo que gente que realiza unos componentes, conversiones de cabeceras en C... pueda cometer "este error".

Gracias por leerme ;)

Hola,

El código de más arriba no lo acabo de comprender. He tratado de localizar la clase "TD3Application" pero no la encuentro, se ve que no tengo instalados los componentes en que viene. Pero, parece que sí es posible cambiar el valor de una constante, aunque ignoro si esto puede decirse así, propiamente.

Código Delphi [-]
const
  // Constante string
  FConstante: string = '¡Hola ';

var
  // Puntero a string
  PFConstante: ^string;

begin
  // Apuntamos a la constante
  PFConstante := @FConstante;

  // Cambiamos su valor
  //PFConstante^ := FConstante + ' mundo!';
  PFConstante^ := PFConstante^ + ' mundo!';

  // Muestra ¡Hola mundo!
  ShowMessage( FConstante );

end;

Algún monstruo de los que hay por aquí nos comentará algo más sobre este tema, seguro. :)

Hola,

Bueno. Pues, buscando un poco en los Foros me topo con este mensaje del amigo Federico que parece aclarar bastante las cosas respecto de lo que nos ocupa.

En palabras de Federico:

Pero, en el caso en que nos encontramos:

Por cierto que, la directiva del compilador {$J} ó {$WRITEABLECONST} nos lo termina de aclarar:

Es decir, que esto es posible:

Código Delphi [-]
{$J+}
procedure TForm1.Button1Click(Sender: TObject);
const
  FConstante: string = '¡Hola ';
begin
  ShowMessage( FConstante + ' mundo!');
end;
{$J-}

Y es lo que se hace en el código que tú has expuesto, utilizar una constante a modo de variable previamente inicializada. Probablemente porque:

PD: Puede comprobarse cómo el código fuente que he puesto en mi anterior mensaje no funcionaría con constantes "no tipadas". ;)

Muchas gracias Dec!

Había buscado por los foros, pero tampoco sabía exactamente como buscarlo. Ahora queda todo resuelto, tan sólo sirve para inicializar variables.

Por cierto, el pequeño código que había puesto es de un ejemplo (aunque no sé muy bien si de DelphiX o de los headers de DirectX). Los he bajado de los enlaces que puse al principio por si te interesan ;)