Alternativa a los campos agregados en un TQuery

[ecfisa]

Hola wilcg.

Tu función sería mas eficiente así:

Código Delphi [-]
function SumarDBGrid: Currency;
var
  qy: TQuery;
begin
  qy:= TQuery.Create(nil);
  try
    qy.Close;
    qy.DatabaseName := 'TU_DB_NAME'; // (El nombre de tu base de datos)
    qy.SQL.Text := 'SELECT SUM(CANTIDAD*COSTO) AS RESULTADO FROM TU_TABLA'; // (El nombre de tu tabla)
    qy.Open;
    Result := qy.FieldByName('RESULTADO').AsCurrency;
    qy.Close;
  finally
    qy.Free;
  end;
end;

Saludos