Hi, weiß einer, wie ich den Schwierigkeitsgrad meiner Quizfragen ändern kann!?
Also, ich habe 3 Tabellen (quizfragen_leicht, quizfragen_mittel, quizfragen_schwer)
Jetzt würde ich gerne einstellen, das die ersten 5 Fragen aus der leichten Tabelle entnommen werden, die nächsten 4 aus der mitleren, und die letzen 6 aus der schweren TB.
So arbeitet das Prog im Moment,...hoffe ihr könnt mir helfen!
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;