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