Calculos con un TEdit

[BlueSteel]

Hola ... tengo el siguiente problema....

vTot_Iva.Text es una TEdit... y debe contener el 19% de otro TEdit... vTot_Net.Text

Actualmente lo estoy realizando de la siguiente forma:

vTot_Iva.Text := IntToStr(StrToInt(vTot_Net.Text)*0.19);

pero no me funciona.. ya que estoy usando las variables como enteras.. y no me aceptan decimales...

¿Como tengo que realizar el proceso para que me acepte los decimales...? pero sin utilizar variables externas... solo los mismos TEdit...

Existe un FloToStr ? :(

[marcoszorrilla]

vTot_Iva.Text := IntToStr(StrToInt(vTot_Net.Text)*0.19);

vTot_Iva.Text := FloatToStr(StrToFloat(vTot_Net.Text)*0.19);


Un Saludo.

[Ohcan]

Hola BlueSteel

Intenta:

vTot_Iva.Text := FloatToStr(StrToFloat(vTot_Net.Text)*0.19);

Salu2

[BlueSteel]

Gracias....

y ahora como hago para que me redondee.... y me entregue el entero ?... y si el decimal en igual o mayor a 5 me sume 1 al entero ? :confused:

[Neftali [Germán.Estévez]]

Busca en la ayuda de Delphi sobre las funciones Round y SetRoundMode.