Fórum Ja tentei de tudo , mas está dificil .. quot; Formatção qu #152641
07/04/2003
0
Meu problema é o seguinte ..
Tenho um sistema que faz o seguinte .. ele pega os dois valores de dois edits ..e soma e joga o valor obtido no outro edit .. mas acho que estou usando algum tipo de dado errado ..minha rotina é essa ..abaixo:
procedure TForm_Cad_NotaFiscal.Edit2Exit(Sender: TObject);
Var
ValorSomado,ValorTotal:Real;
Resultado:String;
begin
If Trim(Edit2.Text) <> ´´ Then
Begin
ValorTotal:=StrToCurr(Edit1.Text);
ValorSomado:=StrToCurr(Edit2.Text);
Edit1.Text:=(FormatCurr(´#,0.00´,(ValorSomado + Valortotal)));
End
Else
Edit3.SetFocus;
end;
o erro é esse :
ex:
1.000,00 is not a valid floating point value.
obs: esse erro só ocorre qdo o valor passa de 1.000,00 ..
Obrigado pela ajuda !
C-t
Curtir tópico
+ 0Posts
07/04/2003
Raonepn
Gostei + 0
07/04/2003
C-t
Cara vou da um ex:
Tipo assim ..
tenho um edit 1 que é a qtde de itens ...
tenho um edit 2 que é a qtde de itens ...
tenho um edit 1 que é a Valor total de itens ...
tenho um edit 2 que é a valor Total de itens ...
e tenho um edit 1 que é a soma de todos itens ...
vamos supor .. qtde 1 = 500,00
qtde 2 =500,00
Soma =1.000,00
..então oque vc me falou .. ficaria meio chato fazer isso .. porque toda vez o usuario ..tem que tirar o ponto .....
Gostei + 0
07/04/2003
Raonepn
Gostei + 0
07/04/2003
C-t
Gostei + 0
09/04/2003
Anonymous
procedure TForm1.Edit2Exit(Sender: TObject);
var
valor: Real;
begin
valor :=StrToFloat(Edit1.Text)+StrToFloat(edit2.Text);
edit3.Text :=FormatFloat(´#,0.00´,(Valor));
end;
Gostei + 0
09/04/2003
C-t
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)