Erro com Float

Delphi

20/01/2005

Bom dia

Eu estou tendo um pequeno problema com um campo de valor

Tenho um edit e no evento on exit, tenho o seguinte comando:

[b:1f0075d440]vrcontrato.text:=formatfloat(´#,0.00´,StrToFloat(vrcontrato.text));[/b:1f0075d440]

no caso se eu digitar um valor como 123456789,00 ele ne retorna 123.456.789,00

Até aí, tudo bem. Agora se eu retornar a este campo, na hora que eu saio surge a seguinte mensagem:

[b:1f0075d440]123.456.789,00 is not a floating point value[/b:1f0075d440]

Como posso resolver este problema ?

:D


Arc

Arc

Curtidas 0

Respostas

Bico

Bico

20/01/2005

Bom dia.

Você deve retirar os pontos antes de fazer a conversão:

vrcontrato.text:=formatfloat(´#,0.00´,StrToFloat(StringReplace(vrcontrato.text, ´.´, ´´, [rfReplaceAll])));

Atenciosamente,
Fernando.


GOSTEI 0
Marcio.theis

Marcio.theis

20/01/2005

Se vc quiser tb existe um componente que faz tudo isto para vc, sendo que não precisa ficar controlando o OnExit e coisa e tal, se quiser o componente pode baixar de:

http://geocities.yahoo.com.br/padodaco/TREdit.zip


GOSTEI 0
POSTAR