error de valor

[josi]

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......

[*Caro*]

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.

Código Delphi [-]
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 := a/ 100 + a;
 edit11.Text:= floattostr(h);
 
 end;
end;

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

[[Delphius]]

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.

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

Con 76 mensajes ya deberías haber aprendido a usar etiquetas [ DELPHI ] y [ /DELPHI ]
Que esto lo hagan los novatos pase, pero los "veteranos"...