Código Delphi [-] ... with unQuery do begin Close; SQL.Text:= 'SELECT SUM(CAMPO) AS SUMA FROM TABLA'; Open; Edit1.Text := FloatToStr(unQuery.FieldByName('SUMA').AsFloat); Close; end; ...
... with unQuery do begin Close; SQL.Text:= 'SELECT SUM(CAMPO) AS SUMA FROM TABLA'; Open; Edit1.Text := FloatToStr(unQuery.FieldByName('SUMA').AsFloat); Close; end; ...