Pasar valores a una variable tipo const
 

Hola a todos los programadores Delphi del Foro...

Les tengo una pregunta: :D

Como puedo hacer para darle un valor a una variable y no modificarlo mas en todo el programa, seria como una constante pero sin saber cual es el valor inicial en un primer momento.

El codigo funciona bien, guarda el valor de la posicion, pero cuando ingreso otra letra, el valor buelve a 0.
Cual puede ser el error que estoy cometiendo, y como podria hacer para dar el valor a una variable y no modificarlo despues.

De antemano muchas gracias a todos. :D

Salu2. :D

Por lo que he entendido, tendrias que inicializar tu variable "Valor" en otro lugar. Ademas podrias usar una Bandera para impedir el nuevo ingreso.
Espero averte dado una mano bye

Si en un procedimiento pones :

Código Delphi [-]
procedure mio;
const Valor: integer = 1;
begin

  valor := pos (sub,s);
end;

La primera vez que se ejecute la funcion, Valor se inicializa a 1, las siguientes llamadas tendrá lo que devuelve la función 'Pos'

No habrá problemas si esa variable está definida como una constante al principio de cualquier Unidad.

Para poder hacer esto, tienes que ir a Project --> Options --> Compiler y marcar la casilla llamada 'Assignable typed constant'. Si no lo haces el compilador te dará un error y no deja continuar la compilación.

Saludos

Si estas trabajando con métodos de clase, podes declarar Valor como un atributo de la misma (que se inicializa automáticamente a cero).

De manera que en la primera llamada al método, valdra 0, y en las siguientes, conservará el último valor asignado:

Probá este pequeño ejemplo:

Código Delphi [-]
Type
  TForm1 = class(TForm)
  ...
  private
    FValor : Integer;  //atributo de clase
  end;

  Procedure Button1Click(Sender : TObject);
  begin
    inc(FValor);
    label1.caption := IntToStr(FValor);  
    //la primera vez valdra 1, y se va incrementando en cada clic del boton.
  end;

Hasta luego.

;)