Tema: sumar edits
Ver Mensaje Individual
  #4  
Antiguo 12-08-2007
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Reputación: 25
Delphius Va camino a la fama
Bueno... mirá te doy un código. Se puede optimizar... Por ahora, yo me valgo del evento OnChange. Una vez que se cambia el valor del edit1 y/o edit2 se llama a un procedimiento que se encarga de calcular la suma y mostrar el valor.
Se puede hacer de otra forma... te la dejo a estudio:

Código Delphi [-]
procedure TForm1.Actualiza;
var suma: integer;
begin
  suma := Nro1 + Nro2;
  Edit3.Text := IntToStr(suma);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Nro1 := StrToInt(Edit1.Text);
  Actualiza;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  Nro2 := StrToInt(Edit2.Text);
  Actualiza;
end;

Saludos,
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita