1:
2:
3:
4:
5:
6:
7:
8:

Query1.Active:=True;
   Query1.First;
    for i:=1 to BrAnz do begin
     Query1.Edit;
     Query1.FieldByName('SitzNr').Value:=i;
     Query1.Post;
     Query1.Next;
    end;					

1:

SELECT * FROM Kandidaten ORDER BY Hoechstzahl DESC					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

procedure ButtonSitzverteilungClick(Sender: TObject);
var aHighScore: array of String;
    I,RecAnz: Integer;
begin
   //--auslesen
   Query1.SQL.Text := 'SELECT KandidatName, Hoechstzahl FROM Kandidaten ORDER BY Hoechstzahl DESC';
   Query1.Open;
   RecAnz := Query1.RecordCount;
   
   //--Array dimensionieren -> abhängig von Anzahl der QueryDatensätze,
   SetLength(aHighScore,RecAnz+1);

   //--Query durchlaufen und Kandidatname  eintragen
   while not Query1.Eof do
     begin
       aHighScore[Query1.RecNo] := Query1.Fields[0].AsString;
       Query1.Next;
   end;

   //--Sitznr. eintragen
   query1.Close;
   Query1.SQL.Text := 'UPDATE Kandidaten SET SitzNr=:NR WHERE kandidatname=:KN');

   for I := 1 to High(aHighScore) do
     begin
       Query1.ParamByName('KN').AsString := aHighScore[I];
       Query1.ParamByName('NR').AsInteger := I;
       Query1.ExecSQL;
   end;
...
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

procedure TForm1.PageControl2Change(Sender: TObject);
Var i,recanz:Integer;
var aHighScore: array of String;
begin
 if PageControl2.ActivePageIndex=0 then
 begin
   TableKandidaten.Filter:='ListeNr='+QuotedStr(IntToStr(TableListenListeNr.AsInteger));
   TableKandidaten.Filtered:=True;
  end
  else begin
   TableKandidaten.Filtered:=False;
   Query1.SQL.Text := 'SELECT KandidatName, Hoechstzahl FROM Kandidaten ORDER BY Hoechstzahl DESC';
   Query1.Open;
   RecAnz := Query1.RecordCount;

   //--Array dimensionieren -> abhängig von Anzahl der QueryDatensätze,
   SetLength(aHighScore,RecAnz+1);

   //--Query durchlaufen und Kandidatname  eintragen
   while not Query1.Eof do
     begin
       aHighScore[Query1.RecNo] := Query1.Fields[0].AsString;
       Query1.Next;
   end;

   //--Sitznr. eintragen
   query1.Close;         //<<--Hier wird Query geschlossen
   Query1.SQL.Text := 'UPDATE Kandidaten SET SitzNr=:NR WHERE kandidatname=:KN';

   for I := 1 to High(aHighScore) do
     begin
       Query1.ParamByName('KN').AsString := aHighScore[I];
       Query1.ParamByName('NR').AsFloat := I;
       Query1.ExecSQL;
   end;
   Query1.Active:=True; //<<--Hier möchte ich das die ergebnissmenge in dem DBGrid wieder angezeigt wird weil ohne Active oder open zeigt mein grid doch nischt an oder?
 end;
end;