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 + StrToFloatDef(E5.Text, 0) * 5 + StrToFloatDef(E10.Text, 0) * 10+ StrToFloatDef(E2 .Text, 0) * 20 ; EACtotal.Text:= FloatToStr (amount);
end;
__________________
We are told to remember the idea, not the man, because a man can fail. He can be caught, he can be killed and forgotten, but 400 years later, an idea can still change the world.
Última edición por The Cid James fecha: 07-12-2017 a las 01:44:26.
|