Ver Mensaje Individual
  #10  
Antiguo 24-11-2014
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Reputación: 12
giulichajari Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola giulichajari.

También podes encapsular las acciones del código que mostras arriba en un método,
Código Delphi [-]
procedure TForm1.EditsChange(Sender: TObject);
begin
  EditTotal.Text:= CurrToStrF(StrToCurrDef(EditARS.Text, 0) +
    StrToCurrDef(EditUSD.Text, 0) * StrToCurrDef(EditCotiz.Text, 0) +
    StrToCurrDef(EditCheq1.Text, 0) + StrToCurrDef(EditCheq2.Text, 0) +
    StrToCurrDef(EditCheq3.Text, 0) + StrToCurrDef(EditCheq4.Text, 0),
    ffCurrency, 2);
end;
para luego asignarlo a los eventos OnChange de los Edits involucrados.

Saludos
Es decir, que cada vez que cambia un edit se produce la suma de arriba?

Y que significa
Código Delphi [-]
ffCurrency, 2
?

Tuve que poner la propiedad Text por default en 0(cero) para no tener errores al sumar, porque el vacio es null. Como puedo resolver esto?
Responder Con Cita