Somar numeros não inteiros

Delphi

08/04/2004

Olá pessoal,

como eu poderia fazer pra somar duas edits q estão com seus numeros não inteiros? tipo 10,9 + 0,55


Lipsil

Lipsil

Curtidas 0

Respostas

Maxwell_monteiro

Maxwell_monteiro

08/04/2004

Resultado := StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text);


GOSTEI 0
Edilcimar

Edilcimar

08/04/2004

Numero1, Numero2 : Real;

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
Lipsil

Lipsil

08/04/2004

valew pessoal,
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
Edilcimar

Edilcimar

08/04/2004

Nas variáveis onde coloquei Real troque por Currency


GOSTEI 0
Lipsil

Lipsil

08/04/2004

consegui da seguinte forma:

  
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
Lipsil

Lipsil

08/04/2004

to eu aqui dinovo me auto respondendo.. hehe..
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
POSTAR