select anweisung

[gro]

versuchs mal so:

Code:

  ADOQuery1.SQL.Text := 'SELECT user, sum(poso) as sum FROM history group by user';
  ADOQuery1.Active := TRUE;

  iCount := 1;

  while (ADOQuery1.Eof = FALSE) do begin
    stringgrid1.Cells[3, iCount] := ADOQuery1.Fieldbyname('user').asstring;
    stringgrid1.Cells[2, iCount] := floattostr(ADOQuery1.Fieldbyname('sum').asfloat);

    ADOQuery1.Next;
    inc (iCount);
  end;