Quando vc está transformando string em float, tá entrando junto os
separadores de milhar.
É só remover os danados antes do strtofloat que funciona.
Em 03/03/08, inacio_mecena <[EMAIL PROTECTED]> escreveu:
>
>
> Ola pessoal boa tarde.. seguinte to com um problema aki.. q nao
> verdade mais é por falta de conhecimento.. to começando agora..
>
> mas vamos la...
>
> seguinte eu to criando um modulo de recebimento de caixa.. dai vem um
> problema abaixo segue o codigo q escrevi qdo o valor da abaixo de
> 1.000,00 da tudo certo mais qdo o valor é acima de 999 tipo 1.000,00
> ele fala q o valor nao é um ponto flutuante valido.. como posso
> contornar isso??
>
> dinheiro := RxCalcEdit2.Text;
> cartao := Edit3.Text;
> cheque := Edit2.Text;
> total := FloatToStr(StrToFloat(dinheiro) + StrToFloat(cartao) +
> StrToFloat(cheque));
> saldo.Caption := FormatFloat('###,###,###,##0.00',StrToFloat(total));
> saldo.visible := true;
> // calcular troco
> troco := FloatToStr(StrToFloat(saldo.Caption) -
> StrToFloat(label4.caption));
> label5.Caption := FormatFloat('###,###,###,##0.00',StrToFloat(troco));
> label5.Visible := true;
> //calcular carteira
> total2 := FloatToStr(StrToFloat(label4.Caption) -
> StrToFloat(saldo.Caption));
> Edit4.Text := FormatFloat('###,###,###,##0.00',StrToFloat(total2));
>
--
Timeo hominem unius libri
Cogito ergo sum - Carpe diem
[]s
Guionardo Furlan
http://guionardo.blogspot.com
