Fórum Somar numeros não inteiros #224921
08/04/2004
0
como eu poderia fazer pra somar duas edits q estão com seus numeros não inteiros? tipo 10,9 + 0,55
Lipsil
Curtir tópico
+ 0Posts
08/04/2004
Maxwell_monteiro
Gostei + 0
09/04/2004
Edilcimar
Try
Numero1 := StrToFloat(Edit1.Text);
Except
ShowMessage(´O número em Edit1 não é válido´);
Edit1.SetFocus;
End;
Try
Numero2 := StrToFloat(Edit2.Text);
Except
ShowMessage(´O número em Edit2 não é válido´);
Edit2.SetFocus;
End;
é óbvio que na mensagem vc não vai colocar Edit1 e Edit2 mas sim o nome do campo, e preferencialmente coloque os try no onexit do edit
Gostei + 0
09/04/2004
Lipsil
mas não é isso não :(
acho q me expressei mal...
Eu quero fazer um meio de somar dinheiro, por exemplo eu tenho num edit 10,5, como faço pra somar com outro edit o valor 9,9?
Vlw
Gostei + 0
09/04/2004
Edilcimar
Gostei + 0
09/04/2004
Lipsil
var num, otro, custa : currency; begin num:= StrToFloat(valor.Text); otro:=StrToFloat(label4.Caption); custa := num + otro; label4.Caption := FormatFloat(´#0.00´,custa);; end;
Vlw pela força pessoal, mas não cheguei aonde eu queria ainda :p....
Seria o seguinte: agora com esse valor q esta na label4.caption, como faria pra dividir ela pelo valor 5 por exemplo?
Valew
Gostei + 0
09/04/2004
Lipsil
me esqueci de fazer a coisa mais óbvia.. ehehhe......
resposta pra mim:
var cada, tudinho: currency; begin tudinho:=round(StrToFloat(label4.Caption) + StrToFloat(mais.Text) - + StrToFloat(menos.Text)); cada:=tudinho / strtoint(vezes.Text); showmessage(FormatFloat(´#0.00´,cada)); end;
Vlw pessoal pela ajuda tb ;) rsrsrs
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)