Ver Mensaje Individual
  #3  
Antiguo 05-12-2017
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.

¿ Te sirve algo así ?
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  amount: Integer;
begin
  amount := StrToIntDef(Edit1.Text, 0) +      //  1 u$S
            StrToIntDef(Edit2.Text, 0) *  5 + //  5 u$s
            StrToIntDef(Edit3.Text, 0) * 10 + // 10 u$s
            StrToIntDef(Edit4.Text, 0) * 20 + // 20 u$s
            ...
end;

Saludos
__________________
Daniel Didriksen

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