1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

    form1.Query2.SQL.Clear;
    form1.Query2.SQL.ADD('Select SUM(menge) as ladungsmenge,bez FROM "LADUNG.DBF" group by bez');
    form1.Query2.ExecSQL;
    form1.Query2.active:=true;

    setlength(LadungMenge,form1.Query2.RecordCount+1);
    setlength(LadungBez,form1.Query2.RecordCount+1);

    Ladung:=0;
    for lauf1:=1 to form1.Query2.RecordCount do
      begin
        LadungMenge[lauf1]:=form1.Query2.FieldByName('ladungsmenge').asfloat;
        LadungBez[lauf1]:=form1.Query2.FieldByName('bez').asstring;
        form1.Query2.Next;
        Ladung:=Ladung+LadungMenge[lauf1];
      end;					

1:

form1.Query2.active:=true;					

1:

showmessage(Query2['ladungsmenge'])					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

    Query2.SQL.Text := 'Select SUM(menge) as ladungsmenge,bez FROM "LADUNG.DBF" group by bez';
    Query2.Open;
    Query2.Last;
    Query2.First;
    setlength(LadungMenge,Query2.RecordCount);
    setlength(LadungBez,Query2.RecordCount);

    Ladung:=0;
    lauf1 := 0;
    while not Query2.Eof() do
    begin
        LadungMenge[lauf1]:=Query2.FieldByName('ladungsmenge').asfloat;
        LadungBez[lauf1]:=Query2.FieldByName('bez').asstring;
        Ladung:=Ladung+LadungMenge[lauf1];
        inc( lauf1);
        Query2.Next;
    end;