nein , ich komm nicht weiter
damit zeigts mir 3mal das gleiche ergebnis:
Delphi-Quellcode:
Query1.Close;
Query1.sql.Clear;
Query1.SQL.Add('SELECT gruppe, COUNT(*) AS Anzahl FROM artdb GROUP BY gruppe');
Query1.Open;
banz:=query1.RecordCount;
for i:=0 to banz -1 do begin
dbmemo1.Lines.Add(Query1.fieldbyname('gruppe').AsString+' :'+IntToStr(Query1.fieldbyname('anzahl').AsInteger));
end;