SUM a edit o variable

[jhonny]

Pues la cosa es sencilla, si tu dataset es un ClientDataSet puedes activar los TAgregates, es muy sencillo trabajar con ellos... si no, solo debes recorrer el dataset e imprimir el resultado en dicho Edit, asi:

Código Delphi [-]
var
  Total: Extended;
begin
  Total := 0;
  Dataset1.DisableControls;  
  try  
    Dataset1.First;
    while not Dataset1.Eof do
    begin
      Total := Total + Dataset1.FieldByName('Importe').AsFloat;
    Dataset1.Next;
    end;

    EditX.text := FloatToStr(Total);
  finally
    Dataset1.EnableControls;
  end;
end;

Y ya.