Uso del componente JvValidateEdit

[[BlueSteel]]

Hola

Tengo un problema.. estoy usando el JvValidateEdit.. y quisiera realizar un proceso de calculo con el dato ingresado.. pero no se como realizarlo.. antes tenia un TEdit...y funcaba bien... pero por formato quise utilizar ese...

Tengo un JvValidateEdit con las sgtes propiedades

Name: vCtd
CheckChars : 0123456789,
DisplayFormat : dfFloat
MaxLength : 7

bueno, la idea es básicamente que me permita el ingreso de valores tales como 0,01 hasta 9999,94 (por eso lo del largo)

Además, tengo dos JvValidateEdit con las sgtes propiedades

Name: vUni / vTot
CheckChars : 0123456789.
DisplayFormat : dfCurrency
MaxLength : 9.... ( hasta $ 999.999.999 )

bueno, resulta que debo realizar el calculo sgte

vT

Código Delphi [-]
ot.Text := FloatToStr(StrToFloat(vCtd.Text)*StrToFloat(vUni.Text));

bueno..eso me arroja el sgte error

exception class EConvertError with message "$ 15,00' is not a valid floating point value'


quizas es por que un valor esta en formato Currency para que me pueda tomar el tipo de moneda y el otro float...para que me tome la cantidad hasta con 2 decimales...

Alguien ha trabajado esto con dicho componente ??? o puede que no se trabaje como StrToFloat / FloatToStr

Salu2

[[Lepe]]

StrToFloat solo aceptará números y el punto decimal para convertir el texto a número. Que yo sepa, el error lo dá por el símbolo de dolar y por la coma.

Saludos

[[BlueSteel]]

Empezado por Lepe

StrToFloat solo aceptará números y el punto decimal para convertir el texto a número. Que yo sepa, el error lo dá por el símbolo de dolar y por la coma.

Saludos

Ok... pero el mi caso el separador de decimales es la coma...

Existe alguna forma para realizar el calculo ???

[ContraVeneno]

Hombre, amigo, te la estás complicando demasiado:

Código Delphi [-]
ot.AsAsFloat := vCtd.AsFloat*vUni.AsFloat;
// o lo que es mas o menos lo mismo, pero sin tantos decimales
ot.AsCurrency := vCtd.AsCurrency*vUni.AsCurrency;

//funciona igual para asignar valores:
vCtd.AsCurrency := UnDatamodule.UnDataset.FieldByname('UnCampoMoneda').AsCurrency;

El componente TjvValidateEdit, soporta: AsFloat, AsInteger, AsString, AsCurrency y no recuerdo que más.

[[BlueSteel]]

Gracias Contraveneno...

justo lo que necesitaba...

Código Delphi [-]
 
vTot.Text := FloatToStr( vCtd.AsFloat * vUni.AsCurrency );

[ContraVeneno]

Que bien...

solo por curiosidad
¿porque no usar un TjvValidateEdit tambien para el total?
A mi me quita muchos problemas si todos los controles que van a llevar números, son TjvvalidateEdit.

Código Delphi [-]
vTot.AsCurrency :=  vCtd.AsCurrency * vUni.AsCurrency;