Editlt;lt;lt;lt;lt;gt;gt;gt;gt;gt;gt; Urg�ntelt;

Question

* Por favor analize esse trecho
Var
c,d,a:real
begin
(soma Sql)
d:=c*6/100
vaL4.TEXT:=FORMATfLOAT(�R$ #,,0.00�,d)
Apagar.Text:=Val4.Text+Acre4.Text-Desc4.Text
* E me diga: Como possos somar o Edit(Apagar)?

Mecq_clayton · Answer

Well n�o entendi direito a sua d�vida mas creio que seja um problema est� acontecendo porque vc n�o est� convertendo os valores string para integer na hora se somar. Substitua a linha abaixo:

Apagar.Text:=Val4.Text+Acre4.Text-Desc4.Text

por:

Apagar.Text:= FloatToStr(StrToFloat(Val4.Text) +StrToFloat(Acre4.Text) - StrToFloat(Desc4.Text ));

Creio assim funcione
Qualquer d�vida poste a mesma no for�m.