Datenbank- Quiz programmieren

[DeddyH]

Nochmal: deine Schleifenbedingung bedeutet, dass AdoQuery6 nicht am letzten Datensatz angekommen sein darf, AdoQuery7 aber muss. Und durch den fehlenden begin-end-Block wird nur eins der beiden Queries angesprochen. Korrigier das jetzt erst einmal, dann sehen wir weiter.

[Reedx]

ich hab es jetzt so gemacht. Jetzt bleibt die Radiogroupbox aber komplett leer und zeigt weder frage noch antworten an

Delphi-Quellcode:

 for i:= 0 to 10 do
    begin
        Datamodule1.ADOQuery6.First;
        Datamodule1.ADOQuery7.First;
     while (not (Datamodule1.ADOQuery6.Eof) and (Datamodule1.ADOQuery7.Eof)) do
     begin
        Datamodule1.ADOQuery6.Next;
        Datamodule1.ADOQuery7.Next;

    //Frage in "Titel"
      rg.Caption:= Datamodule1.ADOQuery6.Fields[0].AsString;
    //Antworten in Radiobuttons
      rg.Items.Clear;
      rg.Items.Add(Datamodule1.ADOQuery7.Fields[0].AsString);
      rg.Items.Add(Datamodule1.ADOQuery7.Fields[1].AsString);
      rg.Items.Add(Datamodule1.ADOQuery7.Fields[2].AsString);

    end;
       end;
          i:= i+1;

[DieDolly]

Ich reagiere jetzt auf was anderes.
Was soll dieses i:=+1; dort?
Bzw das von dir abgeänderte i:= i+1;

Es scheint wirklich so, als würdest du die Basis überhaupt nicht kennen und ihr, die Klasse, legt einfach drauf los.
Für gewöhnlich lehrt man als Lehrpersonal erst einmal die grundlegenden Begriffe und und und. Und fängt nicht gleich ohne Grundwissen vermittelt zu haben mit Datenbanken an.

[DeddyH]

Setz mal einen Haltepunkt innerhalb der while-Schleife.

[DieDolly]

Ich schreibe es nur noch einmmal sicherheitshalber.
Hier möchte dich, auch wenn gerade gefühhlt auf dich eingedroschen wird, niemand ärgern. Es geht alleine darum, dass du etwas lernst und eventuelle Prüfungen bestehst.

[DeddyH]

Vielleicht wäre es auch sinnvoller, den Code erst einmal zu vergessen und sich den Ablauf einmal klassisch auf Papier aufzuzeichnen, das kann ein Struktogramm, ein PAP oder einfach etwas eigenes sein, Hauptsache, man kann seinen Gedankengang später nachvollziehen. Wenn man dann der Meinung ist, dass das so funktioniert, formuliert man das dann in Code.

[DieDolly]

Zum Beispiel hier:
https://www.diagrammeditor.de/

Kann dann so aussehen https://www.hsg-kl.de/faecher/inf/al...s/pap/PAP1.png

[Reedx]

Zitat von DieDolly:

Zum Beispiel hier:
https://www.diagrammeditor.de/

Kann dann so aussehen https://www.hsg-kl.de/faecher/inf/al...s/pap/PAP1.png

ich weiß, ich kenne Struktogramme etc. und habe ein tool bereits dafür.. nur finde ich es gerade unpassend das zu machen, da mein Wille eigentlich deutlich ist und mir das diagramm nichts nützt, wenn der Quelltext nicht stimmt.
Ich möchte einfach nur, das beim klick eine neue frage mit neuen antworten aus meiner datenbank erscheint. mehr nicht.. kein checked:=true/false etc..

[Reedx]

hab nun die 2. query gelöscht. Nun wird die Frage auch im ersten Radiobutton angezeigt, und nicht nur im Titel.. (deswegen ja ursprünglich die 2 Queries)

Delphi-Quellcode:

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;
 
    Datamodule1.ADOQuery6.First;

     while not Datamodule1.ADOQuery6.Eof do
     begin
        Datamodule1.ADOQuery6.Next;

    //Frage in "Titel"
      rg.Caption:= Datamodule1.ADOQuery6.Fields[0].AsString;
    //Antworten in Radiobuttons
      rg.Items.Clear;
      rg.Items.Add(Datamodule1.ADOQuery6.Fields[0].AsString);
      rg.Items.Add(Datamodule1.ADOQuery6.Fields[1].AsString);
      rg.Items.Add(Datamodule1.ADOQuery6.Fields[2].AsString);
    end;
  
  
  end else
  begin
  application.MessageBox('Auswahlfehler!','Fehler');
  end;

[DieDolly]

Müsst ihr das mit einer Datenbank machen? Wenn nicht würde ich es mit einer Ini-Datei machen.