Datenbank- Quiz programmieren

[Klaus01]

so das ganze auf zwei Buttons verteilt.

Delphi-Quellcode:

procedure TFormle.ButtonstartClick(Sender: TObject);
begin
  if lb.ItemIndex >= 0 then
    begin
     rg.Visible:=true;
     Datamodule1.ADOQuery6.SQL.Clear;
     Datamodule1.ADOQuery6.SQL.Text:='SELECT Frage, L1, L2, L3 FROM Fragen WHERE Fach = ' +#39+lb.Items.Strings[lb.ItemIndex]+#39 +
                                    ' AND Schwierigkeit="1";';
     Datamodule1.ADOQuery6.Open;
    end
  else
    begin
      application.MessageBox('Auswahlfehler!','Fehler');
    end;
end;

procedure TFormle.ButtonnextClick(Sender: TObject);
var
  rb: TRadioButton;
begin
  if not Datamodule1.ADOQuery6.Eof then
    begin
      //Frage in "Titel"
      rg.Caption:= trim(Datamodule1.ADOQuery6.FieldByName('Frage').AsString);
      //Antworten in Radiobuttons
      rg.Items.Clear;
      rg.Items.Add(trim(Datamodule1.ADOQuery6.FieldByName('L1').AsString));
      rg.Items.Add(trim(Datamodule1.ADOQuery6.FieldByName('L2').AsString));
      rg.Items.Add(trim(Datamodule1.ADOQuery6.FieldByName('L3').AsString));
      Datamodule1.ADOQuery6.Next;
    end
  else
    begin
      application.MessageBox('Auswahlfehler!','Fehler');
    end;
end;

Dann muss zuerst der Start-Knopf betätigt werden (sieht optisch noch nicht gut aus)
Auch könnte man beim Start schon den ersten Datensatz anzeigen lassen.

Danach sollte dann erst der nächste Frage-Knopf aktiviert werden.

Grüße
Klaus