Erro de soma 1912923458524,81

[Paula Gabriela Costa Oliv 0]

Boa tarde!

 

Estou tentando somar o valor total de vários produtos...para isso tenho os valores em um dbgrid e para calcula-los, uso um botão que recebe o meu código e um DBEdit para mostrar o resultado.

Mas quando clico no botão para calcular a soma o resultado sempre é: 1912923458524,81

para qualquer valor que eu estiver somando.

 

o código:

 

procedure TCSaida.BitBtn1Click(Sender: TObject);

var soma:currency;

begin

dm_dados.tbl_saida_produto2.First;

while not dm_dados.tbl_saida_produto2.Eof do

begin

soma:=soma+dm_dados.tbl_saida_produto2SAIPROD_VALORTOTAL.Value;

dm_dados.tbl_saida_produto2.Next;

end;

dm_dados.tbl_saida_pai2SAIPAI_VALORTOTAL.Value:=soma;

end;

Alguém me ajuda?

era só inicializar a soma com 0.

 

soma:=0;

 

 

Vlw pessoal!

[Roberto Fagundes 40]

Antes do while atribua soma como 0.

 

procedure TCSaida.BitBtn1Click(Sender: TObject);
 
  var soma:currency;
 
begin
      soma := 0;
      dm_dados.tbl_saida_produto2.First;
      while not dm_dados.tbl_saida_produto2.Eof do
      begin
        soma:=soma+dm_dados.tbl_saida_produto2SAIPROD_VALORTOTAL.Value;
        dm_dados.tbl_saida_produto2.Next;
      end;
      dm_dados.tbl_saida_pai2SAIPAI_VALORTOTAL.Value:=soma;
 
 
 
end;

 

Isso por que você não sabe qual o valor inicial da variável.