Datenbank- Quiz programmieren

[DeddyH]

Nach einem Open stehe ich auf dem ersten Datensatz oder auf Eof, wenn es keinen Datensatz gibt. Wozu jetzt die Schleife, ich will doch initial den ersten?

[p80286]

Gute Frage!
dann ist das also überflüssig und nicht nur ungeschickt.

Gruß
K-H

[DeddyH]

Genau darauf will ich hinaus.

[haentschman]

Moin...

Zitat:

Ich würde ja bei der ersten Frage öffnen und bei Click auf den Button dann eins weiter positionieren. Oder übersehe ich da etwas?

+1
(Poppcorn hol...) ... interessante Diskussion.

@TE:

Zitat:

Aber klar, Struktogramme usw. braucht man ja nicht.

@TE: ...damit wäre das eindeutig klar, daß du ein Logik/Verständnis Problem hast.

Zitat:

datenbankdatei kann ich nicht anhängen, dann kommt "ungültiges Objekt"

...das komplette Projekt und die Datenbank in ein ZIP.

[Reedx]

hab es so programmiert, aber stehe immer noch vor dem gleichen Problem, beim click auf dem button bleibt die frage + Antworten immer die gleichen und zeigt nicht die nächsten an..

Delphi-Quellcode:

procedure TFormle.ButtonnextClick(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;

     if Datamodule1.ADOQuery6.Eof then
     begin
       showmessage('Keine Daten');
     end else
     begin
      repeat
          //Frage in "Titel"
         rg.Caption:= Datamodule1.ADOQuery6.Fields[0].AsString;
         //Antworten in Radiobuttons
         rg.Items.Clear;
         rg.Items.Add(Datamodule1.ADOQuery6.Fields[1].AsString);
         rg.Items.Add(Datamodule1.ADOQuery6.Fields[2].AsString);
         rg.Items.Add(Datamodule1.ADOQuery6.Fields[3].AsString);
         Datamodule1.ADOQuery6.Next;
      until  Datamodule1.AdoQuery6.Eof;
     end;
  end else
  begin
  application.MessageBox('Auswahlfehler!','Fehler');
  end;

[DieDolly]

Schick mal alles in einem zip-Archiv hier rüber bitte.

[DeddyH]

Bin ich irgendwie unsichtbar oder sowas? Wozu ist die Schleife gut?