Ver Mensaje Individual
  #2  
Antiguo 16-04-2013
Avatar de gatosoft
[gatosoft] gatosoft is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Bogotá, Colombia
Posts: 833
Reputación: 22
gatosoft Va camino a la fama
Tu teoría es cierta, las variables: a,b,c,d: real; son locales para el procedimiento Button1Click, lo que quiere decir que cada vez que invoques el evento comienzan con su valor por defecto.

Debes definir estas variables con un ámbito mayor, como por ejemplo en la forma:

Código Delphi [-]
Form1 = class(TForm)
Private

Public
  b,c,d: real;
end;
{...}

procedure TForm1.Button1Click(Sender: TObject);
Var a: Real; //puede ser local
begin
  a := strtoint(Edit1.text);
  b := b + a;
  c := c + 1;
  d := b / c;
  Edit1.Clear;
end;


Es buena idea inicializar las varibales en el vento OnCreate del formulario, o definir un boton3 para limpiar las variables y volver a calcular.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  b := 0;
  c := 0;
end;

Última edición por gatosoft fecha: 16-04-2013 a las 23:34:24. Razón: OnCreate
Responder Con Cita