Pasar valores a una variable tipo const

[Reyhert]

Hola a todos los programadores Delphi del Foro...

Les tengo una pregunta:

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.

En un RichEdit, cuando se ingresa un caracter determinado, quiero almacenar su valor de posicion en el texto.

Yo hice una cosa como esta...

var 
   Valor: Integer;    // Posicion en el texto
   Longitud: Integer; // Cantidad total de caracteres
   Caracter: String;  // El caracter

Begin
   
   Valor := 0; // Inicializo la variable

   Caracter := RichEdit1.Text[Longitud]; // Ultimo caracter introducido

   // Ahora comparo el caracter introducido, con el que estoy buscando, 
   // para poder guardar su posicion en el texto.
   
   If Caracter = '{' Then
      Valor := Longitud; // Guardo la posicion

   ...

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.

Salu2.

[miguel_fr]

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

[[Lepe]]

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

[jachguate]

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.