OperaÇÃo Aritimetica

[Tecno]

OLÁ PESSOAL ESTOU NOVAMENTE AQUI POSTANDO UMA DUVIDA, TENHO UM FORM COM 5 DBEDIT, ESTES 4 PRIMEIROS CAMPOS IRÃO RECEBER VALORES E O 5 CAMPO IRA RECEBER A OPERAÇÃO ARITIMETICA QUE SERA DA SEGUINTE FORMA;

O PRIMEIRO DBEDIT SOMARÁ COM O SEGUNDO E DIVIDIRA POR 2

O TERCEIRO SOMARÁ COM O QUARTO E DIVIDIRA POR 2

O QUINTO RECEBERÁ A INFORMAÇÃO DA OPERAÇÃO DO PRIMEIRO COM O SEGUNDO E MULTIPLICARA A OPERAÇÃO DO TERCEIRO COM O QUARTO

EX.

DBEDIT1 (12,50) DBEDIT2 (12,45) 12,50+12,45/2

DBEDIT3 (30,20) DBEDIT4 (30,58) 30,20+30,58/2

O QUINTO DBEDIT RECEBERÁ O VALOR 12,47*30,39=378,96

O QUINTO SO RECEBRA O VALOR TOTAL

COMO POSSO RESOLVER ESSE PROBLEMA

[bastard2003]

joga tudo pra variaveis.. axo que é a maneira mais rapida e pratica! cria as variaveis do tipo double e joga os valores pra elas!

[Tecno]

TA DANDO UM ERRO DE FLOATING

[Kikonanet]

Olá,

Posta seu código ai...

Abs.

Kiko

[bastard2003]

passa um floatToStr(variavelDouble) ou strtoFloat(edt.text)

como diz o kiko.. posta o codigo ai q fica mais facil pra falera ver!

abraços!

[Tecno]

var

m1, m2, m3, m4, m5: Real;

m1 := StrtoFloat(Dbedit1.text);

m2 := StrtoFloat(Dbedit2.text);

m2 := StrtoFloat(Dbedit3.text);

m2 := StrtoFloat(Dbedit4.text);

Dbedit4.text := FloattoStr(); aqui esta meu enrosco, como criar a operação

[bastard2003]

pra ti não te perder cria mais duas variaveis aux, aux1 do mesmo tipo, beleza?

aux:= (m1+m2)/2;
aux2:=(m3+m4)/2;
Dbedit4.text := FloattoStr(aux*aux2);

axo que era isso...

[Tecno]

era isso mesmo valeu a dica