inicializar una variable numerica
 

Hola a todos amigos de clubdelphi. (denuevo por aqui despues de tanto tiempo...:D)
tengo unos mensajes de error '' la variable i no es iniciada'' y no realiza los calculos deseados, el procedure es el siguiente

Código Delphi [-]
procedure contador
var: i;
begin
inc(i);
end;

necesito un codigo que solo inicie valor de i al hacer el primer llamado al procedure cotador y no que lo inicie cada ves que se llama a dicho procedure, algo como esto

Código Delphi [-]
procedure contador
var: i;
iniciador: i=0;
begin
inc(i);
end;

espero exista un codigo para este proposito o algo parecido, gracias de ante mano por su ayuda a todos.:):)
Saludos desde Lima - Peru

Cada vez que entras al procedure se crea la variable 'i' y al salir del procedure se elimina. Por eso siempre valdrá cero y se incrementará a 1.
Debes crear la variable globalmente.

Código Delphi [-]
        
  private
    { Private declarations }
   
    i : integer;

    function ComprobarDatos:Boolean;
    procedure getEjerciciosEmpresa( iEmpresa:Integer );
    procedure getConfiguracionEjercicio;
  public
    { Public declarations }

Y procura darle un valor para empezar, por ejemplo, al entrar en el form.

Código Delphi [-]

procedure TFempresas.FormShow(Sender: TObject);
begin
  inherited;
  
  i := 0;
end;

Entonce tu procedure debe quedar así:

Código Delphi [-]
procedure contador
begin
  inc(i);
end;

Ok gracias ''Casimiro Notevi'' ya lo aplique y se elimino el mensaje, realiza los calculos sin problemas, muchas muchas gracias por tu apoyo
:o