Datenbank- Quiz programmieren

[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..

[DieDolly]

Zitat:

und mir das diagramm nichts nützt, wenn der Quelltext nicht stimmt.

Dafür sind Diagramme da - damit am Ende der Quelltext stimmt.

[DeddyH]

Wenn man in einer Schleife die gesamte Datenmenge durchläuft und anschließend die Daten anzeigt, welchen Datensatz stellt man dann dar? Den letzten, oder? Dann nützt dir auch kein „Weiter“-Button. Aber klar, Struktogramme usw. braucht man ja nicht.

[DieDolly]

Kannst du die Datenbankdatei und das Projekt mal hier anhängen?

[Reedx]

Zitat von DieDolly:

Kannst du die Datenbankdatei und das Projekt mal hier anhängen?

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

[p80286]

Wahrscheinlich ist es noch niemanden aufgefallen:

Delphi-Quellcode:

  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;

So wird immer die zweite Antwort verarbeitet. Wenn es nur eine Gibt, macht es bumm!

darum:

Delphi-Quellcode:

  Datamodule1.ADOQuery6.First;
  while not Datamodule1.ADOQuery6.Eof do
  begin
    //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);
    Datamodule1.ADOQuery6.Next;{---- weiter zum nächsten Datensatz oder EOF}
  end;

Und da auch einmal nichts zurück kommen könnte:

Delphi-Quellcode:

  Datamodule1.ADOQuery6.First;
  if Datamodule1.ADOQuery6.Eof then
  begin
    showmessage('Es wurden keine daten gefunden');
  end
  else  {---- es wurden Daten geliefert}
  repeat
    //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);
    Datamodule1.ADOQuery6.Next;{---- weiter zum nächsten Datensatz oder EOF}
  until Datamodule1.ADOQuery6.Eof;

Das gefällt mir besser, aber das ist Geschmackssache.

Gruß
K-H

P.S.
Damals als ich noch in die Schule ging gab es Lehrer, die den falschen Beruf gewählt hatten und Schüler die selbst mit einfachen logischen Zusammenhängen überfordert waren. Ich vermute heute ist es nicht wesentlich anders, darum sollten wir uns jeden Kommentar zur Berufung einer Lehrperson oder eines Schülers verkneifen.

[DeddyH]

Wieso wird denn immer in einer Schleife das Dataset durchlaufen? Ich würde ja bei der ersten Frage öffnen und bei Click auf den Button dann eins weiter positionieren. Oder übersehe ich da etwas?

[p80286]

Jetzt verunsicherst Du mich. "normal" liefert eine Query 0..n Datensätze zurück. Bei 0 ist EOF gleich true.
bekommst Du 1..n Datensätze mußt Du mit .Next dadurch scrollen bis das EOF true ist wenn Du alle Datensätze haben willat. Aber wie läuft das mit den TDB...Komponenten? sind sind die hier im Einsatz?
Ach ja .First ist direkt nach .Open nicht notwendig, da der Zeiger direkt auf dem ersten Datensatz steht. Dieser wird durch .Next erst auf den nächsten Datensatz verschoben.

Gruß
K-H