Duvidas na Subtração

Delphi

30/09/2005

Pessoal, ja fiz uma busca no forum, mas nenhum topico resolveu o meu problema...

Vejam:

var vl_total, vl_desconto, vl_total_com_desconto : string;
begin
vl_total := dbedit4.text;
vl_desconto := dbedit6.text;
vl_total_com_desconto := vl_total - vl_desconto;
end;

Preciso pegar o valot total - o valor de desconto e jogar na variavel vl_total_com_desconto
Como faço isso pessoal?
Valeu


Ricieri

Ricieri

Curtidas 0

Respostas

Massuda

Massuda

30/09/2005

var vl_total, vl_desconto, vl_total_com_desconto : string; begin vl_total := dbedit4.text; vl_desconto := dbedit6.text; vl_total_com_desconto := vl_total - vl_desconto; end;
String é um texto (letras)... para fazer contas você precisa ter números. Para isso, converta o conteúdo dos dbedits para, por exemplo, doubles...
var
  vl_total, vl_desconto, vl_total_com_desconto : Double;
begin
  vl_total := StrToFloat(dbedit4.text);
  vl_desconto := StrToFloat(dbedit6.text);
  vl_total_com_desconto := vl_total - vl_desconto;
  // se precisar do total com desconto em texto...
  // S := FloatToStr(vl_total_com_desconto)
end;



GOSTEI 0
Ricieri

Ricieri

30/09/2005

Massuda, eu peguei seu exemplo mas não está funfando, veja:

vl_total := StrToFloat(dbedit4.text);
vl_desconto := StrToFloat(dbedit6.text);
vl_total_com_desconto := vl_total - vl_desconto;
dbedit7.Text := FloatToStr(vl_total_com_desconto);

o dbedit7 não está trazendo o valor da variável.
help-me... valeu


GOSTEI 0
Massuda

Massuda

30/09/2005

o dbedit7 não está trazendo o valor da variável.
Esse DBEdit está ligado a algum campo de sua tabela? Você deu um Edit na tabela antes de tetnar mudar o valor do campo?


GOSTEI 0
POSTAR