Sumar y multiplicar varios edit automaticamente

[ecfisa]

Hola de nuevo.

Confeccione el ejemplo y te adjunto el código fuente para que lo evalues. (evento asignado en diseño)


Saludos

[Milworm99]

Empezado por ecfisa

Hola de nuevo.

Confeccione el ejemplo y te adjunto el código fuente para que lo evalues. (evento asignado en diseño)


Saludos

Y si quiere sumar o multiplicar en números decimales, como seria el código ?

[ecfisa]

Hola.

Empezado por Milworm99

Y si quiere sumar o multiplicar en números decimales, como seria el código ?

Puede usar la función StrToFloatDef y cambiar la operación aritmética por la que desee.

Saludos

[The Cid James]

seria algo asi?

Código Delphi [-]
StrTofloatDef(Edit4.Text, 0) * 20

Ahora me quedo una duda... se puede trabajar con decimales en el tipo integer?

[ecfisa]

Empezado por The Cid James

seria algo asi?

Código Delphi [-]
StrTofloatDef(Edit4.Text, 0) * 20

Ahora me quedo una duda... se puede trabajar con decimales en el tipo integer?

No, el compilador daría error de compatibilidad de tipos.

Por el contrario, no hay inconveniente en asignar un valor entero a una variable de tipo flotante.

Saludos

[The Cid James]

uff a cambiar los tipos de la tabla para poder cambiar eso ya que puse el ejemplo solo enteros, pero tambien estoy usando monedas, ahora entiendo porque no me deja copilarlo, entonces la variable amount en el ejemplo que me pasaste tambien tendria que ser flotante?

Saludos

Edit :

Asi funciona bien con decimales

Código Delphi [-]
procedure TFcaja.EditsChange(Sender: TObject);
var
  amount: Currency;
begin
  amount := StrToFloatDef (E1.Text, 0) * 0.1 +   //  1 u$S
            StrToFloatDef(E5.Text, 0) *  5 + //  5 u$s
            StrToFloatDef(E10.Text, 0) * 10+ // 10 u$s
            StrToFloatDef(E2 .Text, 0) * 20 ;// + // 20 u$s
            //...
  EACtotal.Text:= FloatToStr (amount);
end;

[ecfisa]

Hola.

Si vas a trabajar con monedas el tipo Currency es el indicado.

Saludos