Soma de Varios Dbedit´s e o resultado em outro

Delphi

26/10/2003

:cry: Olá Amigos Que tanto já me ajudaram.

Estou aqui novamente com uma duvida, e o seguite:

Tenho form com 5 dbedit que vou informado valores a eles e queria o resultado dessa soma em um outro dbedit mais ou menos assim

-----------
| 3,00 | dbedit1
-----------
-----------
| 3,00 | dbedit2
-----------
-----------
| 3,00 | dbedit3
-----------
-----------
| 3,00 | dbedit4
-----------
-----------
| 3,00 | dbedit5
-----------

-----------
valor total | 15,00 | dbedit6
-----------

Uso a sequinte dica para cada evento onexit de cada dbedit


if Dbedit1.text=´´ then (depende do dbedit1.2.3)
dbedit1.text:=´0´;
dbedit6.text:=formatfloat(´#,,0.00´,strtofloat(copy(dbedit1.text,4,length(dbedit1.text)))+strtofloat(copy(dbedit2.text,4,length(dbedit2.text)))+strtofloat(copy(dbedit3.text,4,length(dbedit3.text)))+strtofloat(copy(dbedit4.text,4,length(dbedit4.text)))+strtofloat(copy(dbedit5.text,4,length(dbedit5.text))));

E cada valor que informo da a seguinte mensagem

´R$ 15,00 nao é um valor de ponto flutuante valido para o campo valor total´

Ainda nao consegui resolver o problema apesar de varias dicas, quem puder me ajudar eu agradeço


Wagner

Wagner

Curtidas 0

Respostas

Wagner

Wagner

26/10/2003

Caro colegas acho que depois de mensagem enviada os dbedit´s ficaram meio torto mais acho que da para entender, qualquer duvida entrem em contato

wagnernormando@ig.com.br


GOSTEI 0
Torres Delphi

Torres Delphi

26/10/2003

Inicie todos os edits com zero, seja no Form1.OnShow. Coloque um botao para fazer a soma dos edits, e nesse botao, some os edits:

edtTotal.Text := StrToFloat(edit1.text)+StrToFloat(edit2.text)+.....

Se for apenas numeros inteiros, use StrToInt.

Acho que eh isso que vc precisa...

[]´s


GOSTEI 0
Wagner

Wagner

26/10/2003

Não deu certo, mais tambem nao entendi essa parte

´ Inicie todos os edits com zero, seja no Form1.OnShow. Coloque um botao para fazer a soma dos edits, e nesse botao, some os edits:´

O que quero e mais ou menos assim:

dbedit + dbedit + dbedit + dbedit = dbedit


GOSTEI 0
POSTAR