Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#4

AW: Abschlussarbeit 12. Klasse Informatik - Quiz

  Alt 17. Nov 2015, 13:13
Mach dir einmal Gedanken, was für Informationen du pro Frage in der Ini-Datei speichern musst, dann ergibt sich der Aufbau fast von selber.

Danach erstelle dir Methoden, die einfache Dinge erledigen:
Delphi-Quellcode:
TFrageForm = class( TForm )
 ...
private
  procedure ZeigeFrageAn( FrageIndex : Integer );
  function IstDieFrageRichtigBeantwortet( FrageIndex, AntwortIndex : Integer ): Boolean;
end;
Diese Methoden kann man dann sehr einfach für den Spielfluss verwenden:
Nach dem Drücken auf Weiter prüft man ob die Frage richtig beantwortet war und merkt sich das Ergebnis und lässt sich die nächste Frage anzeigen.
Delphi-Quellcode:
procedure TFrageForm.WeiterButtonClick(Sender: TObject);
begin
  {AntwortSpeicher - selber überlegen} := IstDieFrageRichtigBeantwortet( AktuelleFrageIndex, AntwortIndex );
  AktuelleFrageIndex := HoleNaechsteFrage;
  ZeigeFrageAn( AktuelleFrageIndex );
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)

Geändert von Sir Rufo (17. Nov 2015 um 13:19 Uhr)
  Mit Zitat antworten Zitat