Im Moment sieht der Spaß so aus:
Delphi-Quellcode:
Query1.Close;
Query1.sql.Clear;
Query1.SQL.Add('SELECT gruppe, COUNT(*) AS Anzahl FROM artdb GROUP BY gruppe');
Query1.Open;
dbmemo1.Lines.Add(query1.FieldValues['gruppe']+' :'+IntToStr(Query1.fieldbyname('anzahl').AsInteger));
im memo wird die letzte Gruppe mit der korrekten Anzahl dargestellt.
aber eben nur die letzte...nicht alle ergebnisse