Formatfloat com problemas

Delphi

29/07/2005

porque não consigo fazer o teste abaixo de forma nenhuma
vValor:= strtoFloat(E_Dinheiro.Text);
E_Dinheiro.Text := Formatfloat(´R$ #,,0.00 ´, vValor);
if E_Dinheiro.Text < Edit6.Text then
begin
A variavel vValor = Real, ja tentei colocar string e currency
E_dinheiro.Text retorna sempre um valor tipo 15,00
Edit6.Text é formatado e retornar um valor tipo R$ 15,00
a mensagem e sempre que o valor float é invalido
alguem poderia me ajudar?
Obrigado


Dpinho

Dpinho

Curtidas 0

Respostas

Paullsoftware

Paullsoftware

29/07/2005

tenta formatar assim:

Edit_Dinheiro.text := ´R$´+FormatFloat(´#,,0.00´,vValor);

mais vc deve deixar pra formatar o valor depois do calculo, só para exibição do resultado na tela, pois quando usamos o FormatFloat ele retorna assim: 1 (1,00)...


GOSTEI 0
Macario

Macario

29/07/2005

Verifique qual é o separador decimal utilizado!

Ponto ou virgula.


GOSTEI 0
Cabelo

Cabelo

29/07/2005

realize os alculos primeiro, e só no fim você formata..

veja nas configurações regionais que o decimal separator que o micro usa..

senão.. mude ele antes de formatar..

decimalseparator := ´.´;
formatfloat.......


GOSTEI 0
Massuda

Massuda

29/07/2005

porque não consigo fazer o teste abaixo de forma nenhuma...a mensagem e sempre que o valor float é invalido
Acredito que o problema esteja ocorrendo na primeira linha que você postou, quando tenta converter de string para float. O StrToFloat está falhando porque você está formatando o Edit para conter o R$. A solução seria você ´desformatar´ o valor do edit, ou seja, remover o R$ (e talvez trocar ponto por vírgula e vice versa).

Para formatar o valor monetário, dê uma olhada [url=http://forum.clubedelphi.net/viewtopic.php?t=65908]neste tópico[/url].


GOSTEI 0
Dpinho

Dpinho

29/07/2005

Problema resolvido, tirei a formatação...
Obrigado


GOSTEI 0
POSTAR