Spalte gruppieren

[DeddyH]

Delphi-Quellcode:

Query1.Close;
Query1.sql.Clear;
Query1.SQL.Add('SELECT gruppe, COUNT(*) AS Anzahl FROM artdb GROUP BY gruppe');
Query1.Open;
Query1.First; //auf ersten Datensatz
banz:=query1.RecordCount;
//solange noch Sätze vorhanden
while not Query1.EOF do
  begin
    dbmemo1.Lines.Add(Query1.fieldbyname('gruppe').AsString+' :'+IntToStr(Query1.fieldbyname('anzahl').AsInteger));
    Query1.Next; //nächster Datensatz
  end;
{for i:=0 to banz -1 do begin
dbmemo1.Lines.Add(Query1.fieldbyname('gruppe').AsString+' :'+IntToStr(Query1.fieldbyname('anzahl').AsInteger));}
end;