Schwierigkeitsgrad, aber wie!?

[aerotech]

Die Sache wird immer Haariger!

Wenn ich oben:

Delphi-Quellcode:

  frage_nr := 0;
   antwort := 1;

  while (antwort = 1) and (frage_nr<15) do
begin
   frage_nr := frage_nr + 1;
   case frage_nr of
   1..5: begin tquizfragen.first;
               tquizfragen.moveby(random(tquizfragen.RecordCount));
         end;

   6..9: begin tquizfragen2.first;
               tquizfragen2.moveby(random(tquizfragen2.RecordCount));
         end;

   {else  begin tquizfragen3.first;
               tquizfragen3.moveby(random(tquizfragen3.RecordCount));
         }end;
     end;
   end;

Wie kann ich meinen Buttons das gleiche erzählen? Die stehen nämlich immernoch auf tquizfragen...
Schließlich müssen auch die wissen, dass nach 5 Fragen die nächste Schwierigkeitsstufe erreicht ist und ne' neue Tabelle zum einsatz kommt, so wie oben!

Delphi-Quellcode:

procedure TForm1.DBText1Click(Sender: TObject);
begin
  if tquizfragen.FieldByName('L1').AsInteger = 1 then begin
     tquizfragen.first;
     tquizfragen.moveby(random(tquizfragen.RecordCount));
     Stufen;  // Führt die Prozedur "Stufen" aus, zu finden in
              // Zeile 88.
  end
  else
     Form4.Show;
end;

procedure TForm1.DBText2Click(Sender: TObject);
begin
  if tquizfragen.FieldByName('L2').AsInteger = 1 then begin
     tquizfragen.first;
     tquizfragen.moveby(random(tquizfragen.RecordCount));
     Stufen;  // Führt die Prozedur "Stufen" aus, zu finden in
              // Zeile 88.
  end
  else
     Form4.Show;
end;

procedure TForm1.DBText3Click(Sender: TObject);
begin
  if tquizfragen.FieldByName('L3').AsInteger = 1 then begin
     tquizfragen.first;
     tquizfragen.moveby(random(tquizfragen.RecordCount));
     Stufen;  // Führt die Prozedur "Stufen" aus, zu finden in
              // Zeile 88.
  end
  else
     Form4.Show;
end;

procedure TForm1.DBText4Click(Sender: TObject);
begin
  if tquizfragen.FieldByName('L4').AsInteger = 1 then begin
     tquizfragen.first;
     tquizfragen.moveby(random(tquizfragen.RecordCount));
     Stufen;  // Führt die Prozedur "Stufen" aus, zu finden in
              // Zeile 88.
  end
  else
     Form4.Show;
end;