Fórum Ja tentei de tudo , mas está dificil .. quot; Formatção qu #152641

07/04/2003

0

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 !


C-t

C-t

Responder

Posts

07/04/2003

Raonepn

tente colocar 1.000,00 sem o ponto....


Responder

Gostei + 0

07/04/2003

C-t

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 .....


Responder

Gostei + 0

07/04/2003

Raonepn

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.


Responder

Gostei + 0

07/04/2003

C-t

Valeu cara .. obrigado !!!


Responder

Gostei + 0

09/04/2003

Anonymous

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;


Responder

Gostei + 0

09/04/2003

C-t

Valeu Cara .. Obrigado Pela Atenção ..mas consegui .. resolver isso .. se vcs quizer a rotina , depois eu coloco aqui ..falow


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar