Editlt;lt;lt;lt;lt;gt;gt;gt;gt;gt;gt; Urgêntelt;
* 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)?
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)?
Well
Curtidas 0
Respostas
Mecq_clayton
17/02/2003
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.
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.
GOSTEI 0