Somat�ria de valores num Grid

Question

E A� galeraPor gentileza algu�m sabe como eu fa�o para exibir uma soma de v�rios valores em uma coluna num DBGrid em um Edit!Valeu!!!...

Marcelo.c · Answer

Somar todos os valores referentes a um campo:

var soma, i: integer;
begin
  Tabela.First;
  for i:= 0 to Tabela.RecordCount - 1 do
  begin
    soma:=soma+TabelaCampo.Value;
    next
  end;
  Edit1.Text:=InttoStr(soma);
end;

Ruysalles · Answer

Pessoalmente, prefiro retornar a soma de uma intru��o SQL da seguinte maneira:

with query do
begin
close;
sql.text := �select sum(valor) � +
� from tabela_preco� +
� where mes = 5�;
open;
editvalor.text := formatfloat(�#,,0.00�,fields[0].asfloat);
end;

Tcharlos · Answer

Obrigado pela for�a cara, t� mais...

F�rum Somat�ria de valores num Grid #193129