Hi Leute, wir haben folgendes Problem, das Programm sucht sich durch Radndom eine Zufallsfrage aus und gibt diese aus. Wenn man auf den Richtigen Button geklickt hat (wenn in der TB_Tabelle eine 1 steht) dann soll automatisch eine neue Frage sowie dessen Anwortmöglichkeiten erscheinen.
Leider haben wir jetzt das Problem, wenn das Programm irgendwann die letzte Frage ganz unten in der
DB ausgewählt hat, dann geht der Button nicht mehr,...sozusagen er geht nicht zurück und sucht sich ne' neue aus. Egal ob er erstmal ne' Frage 2 mal aussucht,...es soll funzen! :/
Delphi-Quellcode:
procedure TForm1.DBText1Click(Sender: TObject);
begin
if tquizfragen.FieldByName('L1').AsInteger = 1 then tquizfragen.moveby(random(tquizfragen.RecordCount))
else
showmessage('Diese Antwortmöglichkeit war leider Falsch');
end;
procedure TForm1.DBText2Click(Sender: TObject);
begin
if tquizfragen.FieldByName('L2').AsInteger = 1 then tquizfragen.moveby(random(tquizfragen.RecordCount))
else
showmessage('Diese Antwortmöglichkeit war leider Falsch');
end;
procedure TForm1.DBText3Click(Sender: TObject);
begin
if tquizfragen.FieldByName('L3').AsInteger = 1 then tquizfragen.moveby(random(tquizfragen.RecordCount))
else
showmessage('Diese Antwortmöglichkeit war leider Falsch');
end;
procedure TForm1.DBText4Click(Sender: TObject);
begin
if tquizfragen.FieldByName('L4').AsInteger = 1 then tquizfragen.moveby(random(tquizfragen.RecordCount))
else
showmessage('Diese Antwortmöglichkeit war leider Falsch');
end;