FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
||||
|
||||
error de valor
tengo este codigo:
procedure TFrmprestamo.BitBtn1Click(Sender: TObject); var a,b,c,d,e,f,h:double; begin a:=strtofloat(edit7.Text); //cantidad solicitada b:=strtofloat(edit14.Text); //meses de pago c:=strtofloat(edit15.Text); // interes e:=strtofloat(edit9.Text); //cuotas f:=strtofloat(edit10.Text);// cantada de cuotas h:=strtofloat(edit11.Text); //total a pagar if combobox3.Text=('mensual')then d:=1; begin h:=strtofloat(edit7.Text)/ 100 + strtofloat(edit7.Text); edit11.Text:= floattostr(h); end; end; lo que trato de hacer es que me me le calcule el inters a la antidad solicitada pero cuando pruebo de sale este error: ''is not floating point value''. gracias mis angeles...... |
#2
|
||||
|
||||
Hola josi, estas llenando tus Edits?, yo creo que en alguno de ellos o no tienes un valor o el valor que tienes no es valido.
Porque haces la conversión en tu variable h, si despues haras calculos para llenar el edit11. Si ya tienes guardado el valor de tu edit7 en tu variable a, sería mejor que utilizaras esa variable y no volver a realizar la conversión.
Si es error es sobre alguno de tus edit, en este mensaje seguro que también te debe indicar el edit que te esta dando el error ''is not floating point value''. Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#3
|
||||
|
||||
Creo que el error pasa porque está empleando el punto como separador decimal y espera la coma, o viceversa. Todo dependerá de la configuración regional.
Hay dos modos mutuamente escluyentes de resolverlo: 1. Estableciendo la variable DecimalSeparator con el caracter adecuado para indicar el separador decimal. O bien, 2. Alterar la configuración regional Una alternativa, a modo de complemento a cualquiera de esas dos opciones existen estas: 1. Implementar algún procedimiento, función o método que se encargue de hacer dicho control, y/o 2. Implementar algún procedimiento, función o método que sustituya el caracter por el otro. Saludos, PD: Los paréntesis que encierran al texto "mensual" están demás. |
#4
|
||||
|
||||
Con 76 mensajes ya deberías haber aprendido a usar etiquetas [ DELPHI ] y [ /DELPHI ]
Que esto lo hagan los novatos pase, pero los "veteranos"...
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Error de conversion de valor | Petolansa | Varios | 3 | 05-12-2007 15:03:54 |
SQL Script Error (mas de un valor) | Alejandrina | SQL | 6 | 26-09-2007 16:02:48 |
Error en OnCalcFields con valor retornado de un SELECT SUM() | Cabanyaler | Conexión con bases de datos | 1 | 17-10-2006 11:44:22 |
Error pasando un valor a unDbgrid | jandres | Varios | 1 | 17-06-2006 01:26:25 |
Error: El valor EOF o BOF es True o el actuañ registro de eliminó | lavtaro | Conexión con bases de datos | 2 | 30-06-2003 11:39:44 |
|