Multiplicação entre edits

[AliadoDjota 0]

é o seguinte, tenho um edit quantidade, outra preco unitario e outra total,gostaria fazer uma multiplicação entre qnt e preco uni e automaticamente de o total, eu consigo fazer isso se qnt e preco uni fossem integer, mas o problema que meu preco unitario é string... :wacko: Alguem pode me ajudar???Obrigado :rolleyes:

[Angelo Gomes 0]

é só transformar ele para inteiro:EdtTotal.text:=strtoint( EdtPrecoUnitario.text) * EdtQuantidade.textse teu preço unitário tiver casas decimais, dai usa strtofloat...

[TheMaker 0]

Ñ entendi bem mas você deve nesse caso usar StrToInt(PreçoUnitario) durante o cálculo... Se puder postar o código fonte da procedure posso ajudar melhor.[]'s

[AliadoDjota 0]

Angelo Gomes fazendo assim da um erro de incompatibilidade:

incompatible types: 'String' and 'Extended'

 

 

TheMaker

var

qnt:integer;

precouni:integer;

begin

qnt := strtoint (edqnt.text);

precouni := strtoint (edprecouni.text);

edtotal.text := inttostr (qnt*precouni);

end;

 

assim ele funca, mas só com 2 variaveis inteiras, eu preciso que precouni seja numero quebrado, já tentei botar precouni:float; mas o delphi não aceita...

 

Alguem pode ajudar??? :unsure:

[Paulo_Amorim 0]

OláNão funciona precouni := StrToFloat(Edit1.Text); ????Que valor vocÊ tem no edit?Que erro dá? Se o erro for na conversão, deve-se atentar para o caractere de decimal, se ponto ou vírgulaAté+

[Angelo Gomes 0]

Primeiro, você num precisa joga par variaveis para fazer a conta, dá para fazer direto.Dá um exemplo dos valores q você ta multiplicando, exatamente como eles estão nos edits...

[AliadoDjota 0]

Paulo_Amorim strtofloat ele nem compila... da erro de incompatibilidade...

 

 

Angelo Gomes Se eu colocar direto, da uma multiplicação errada, eu criando as variaveis ele vai, mas como crio uma variavel com numero decimais? :blink:

[TheMaker 0]

Verdade!você ñ precisa de variaveis só p/ fazer a conta...nesse caso você pode usar strtofloat(precouni) e StrToFloat(Total)...(já q c/ certeza precouni e total serão decimais)...mas se você precisa das variaveis declare-as como Double.[]'s

[AliadoDjota 0]

alguem pode me passar o codigo pra me ajudar, pois já tentei de tudo e não consigo... :angry:

[Angelo Gomes 0]

Seguinte, assumindo q os tres valores são strings (texto): EdtTotal.Text:=floattostr(strtofloat(EdtPreoUnit.Text) * strtofloat(EdtQuantidade.Text));Sempre fiz assim e funciona. Se os teus edits tiverem mascara, pode dar problema na conversão de numeros maiores que 1.000, por causa do ponto. Dai eu uso a funcão para tirar o pontoquantidade:=EdtQuantidade.Text;while pos ('.',quantidade) <> 0 dobegin quantidade:=copy(quantidade,0,pos('.',quantidade)-1)+copy(quantidade,pos('.',quantidade)+1,length(quantidade));end;Num sei se tem jeito melhor de tirar os pontos, mas foi isso q me resolveu o problema na pressa...

[AliadoDjota 0]

Angelo Gomes Salvasse minha vida.... agora deu certo...

agora só outra pergunta, como faco q quando logo digito a quatidade ou o preco, automaticamente no edit total, eu to colocando no onexit do edit do preco unitario, mas tem outro geito??

 

Brigadão galera http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Angelo Gomes 0]

Desculpe, la no começo tinha faltado um pedaço memo....Tenta no OnChange dos edits, mas num do certeza que funcione, num tenho como testar agora auqi...