Fórum Soma de campos edit #193914
10/11/2003
0
Tenho uma tela com cinco campo edit, onde serão digitados valores numéricos. Ao final do quarto campo, o edit5 tem q receber a soma dos outros quatro. Como faço? Ainda não consegui entender bem como fazer conversões...
Pisquila
Curtir tópico
+ 0
Responder
Post mais votado
10/11/2003
Apenas complementando o topico do Denis. Eu faço assim:
Var
num1, num2, num3, num4, num5: real;
Begin
num1:= StrTofloat(edit1.text);
num2:= StrToFloat(edit2.text);
num3:= StrToFloat(edit3.text);
num4:= StrToFloat(edit4.text);
num5:= (num1+num2+num3+num4);
edit5.text:= FloatToStr(num5);
Var
num1, num2, num3, num4, num5: real;
Begin
num1:= StrTofloat(edit1.text);
num2:= StrToFloat(edit2.text);
num3:= StrToFloat(edit3.text);
num4:= StrToFloat(edit4.text);
num5:= (num1+num2+num3+num4);
edit5.text:= FloatToStr(num5);
Henry
Responder
Gostei + 1
Mais Posts
10/11/2003
Denis
A fórmula para conversão dos dados do edit para valores numericos é a seguinte :
StrToFloat(edit1.text) .
Para fazer a soma, pode colocar no evento onchange do edit ou no onexit. Por exemplo. O edit6 será o resultado da soma dos outros.
edit6.text := FloatToStr(strtoFloat(edit1.text)+strtoFloat(edit2.text)+strtoFloat(edit3.text));
E nos enventos onchange o onexit, aponte para o mesmo evento do edit que vc. colocou o cálculo.
Acho que é isso.
Falou.
StrToFloat(edit1.text) .
Para fazer a soma, pode colocar no evento onchange do edit ou no onexit. Por exemplo. O edit6 será o resultado da soma dos outros.
edit6.text := FloatToStr(strtoFloat(edit1.text)+strtoFloat(edit2.text)+strtoFloat(edit3.text));
E nos enventos onchange o onexit, aponte para o mesmo evento do edit que vc. colocou o cálculo.
Acho que é isso.
Falou.
Responder
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)