Hallo,
recht einfach geht es mit "FetchAll" und "RecordCount":
Delphi-Quellcode:
MyQuery.FetchAll ;
ShowMessage('Anzahl: ' + IntToStr(MyQuery.RecordCount)) ;
Für die Summe am besten
SQL oder Schleife (aber recht langsam):
Delphi-Quellcode:
var
iSum : Currrency ;
..
with MyQuery do
begin
{ Ausgaben deaktivieren, sonst werden die Grids mit "gescrollt" }
DisableControls ;
{ Zurücksetzen }
iSum := 0 ;
{ Zum Anfang }
First ;
{ Schleife, über alle Datensätze }
while EOF = FALSE do
begin
{ Addieren }
iSum := iSum + FieldByName('FieldXYZ').AsCurrency ;
{ Nächster Datensatz }
Next ;
end ; // while EOF
{ Ausgaben aktivieren }
EnableControls ;
end ; // with MyQuery
Hoffe es hilft.
Viele Grüsse
Thomas