Ver Mensaje Individual
  #9  
Antiguo 24-11-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita