Soma de campos edit
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
Curtidas 0
Melhor post
Henry
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);
GOSTEI 1
Mais Respostas
Denis
10/11/2003
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.
GOSTEI 1