Ja tentei de tudo , mas está dificil .. quot; Formatção qu
Bom dia a todos ,
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 !
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
Curtidas 0
Respostas
Raonepn
07/04/2003
tente colocar 1.000,00 sem o ponto....
GOSTEI 0
C-t
07/04/2003
Cara obrigado pela dica .
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 .....
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
Raonepn
07/04/2003
bom, não tenho tanta experiencia em delphi... talvez alguem mais experiente possa te ajudar melhor, mas o único jeito que vejo de solucionar isso, é vc criar uma funçãozinha para varrer a string do edit, e retirar todos os ´.´ que forem encontrados, antes de converter para inteiro.
GOSTEI 0
C-t
07/04/2003
Valeu cara .. obrigado !!!
GOSTEI 0
Anonymous
07/04/2003
Meu caro.. estou vendo que vc esta trabalhando com Moeda (Valores) entao teste isso...
procedure TForm1.Edit2Exit(Sender: TObject);
var
valor: Real;
begin
valor :=StrToFloat(Edit1.Text)+StrToFloat(edit2.Text);
edit3.Text :=FormatFloat(´#,0.00´,(Valor));
end;
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
C-t
07/04/2003
Valeu Cara .. Obrigado Pela Atenção ..mas consegui .. resolver isso .. se vcs quizer a rotina , depois eu coloco aqui ..falow
GOSTEI 0