Erro com variavel Float

[Rodrigo Miss 1]

procedure TForm1.FormShow(Sender: TObject);var valor: Double;beginvalor:= 1035;edit1.Text:= FloatToStrF(valor, ffNumber, 19,2);end;procedure TForm1.Button1Click(Sender: TObject);varTotal: Double;beginTotal:= StrToFloat(edit1.Text) - StrToFloat(edit2.Text);ShowMessage(FloatToStr(total));end;

Msg de erro na execucao:

1.035,00 is not a valid floating point value

 

isso ocorre por causa da formatacao com "."....

Comno eu faria pra funcionar corretamente e continuar com essa formatacao?

[marcio.theis 3]

O que poderia fazer é função para remover o ponto e então somar, ou então usar um componente que já trate este tipo de situação, o componente TRealEdit você pode usar com pontos e vírgulas, e quando mandar somar ele já faz tudo certinho, sem precisar formatar o n°, etc...

Com este componente a sua situação ficaria assim:

 

procedure TForm1.Button1Click(Sender: TObject);beginShowMessage(FloatToStr(edit1.Value - edit2.Value));end;

[Rodrigo Miss 1]

Massa kra.... adorei esse TREdit... vlw bixo....em relacao a removar o "." eu tive pensando ... mah axei q teria uma forma mais correta de fazer...e realmente tm "RealEdit".. rsvlw msm pela dica kra... te

[marcio.theis 3]

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif