TQuery -> Anzahl Datensätze

[Thomas Horstmann]

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