Thema: Delphi Quiz erstellen

Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#19

Re: Quiz erstellen

  Alt 23. Mär 2009, 21:55
Moin Roxi,

für die Anzahl der Fragen sind folgende Zeilen wichtig:

Delphi-Quellcode:
  aqQuiz : array [1..15] of TcsQuiz; // Im Interface-Abschnitt

  if FiCountQuestion = 15 then // In NextQuestion

  for i := 1 to 15 do // In FormCreate
Als Vereinfachung (Verbesserung) könnte man auch einfach eine Konstante mit der Anzahl belegen, und diese an diesen drei Stellen einbauen.

Wie in meinem letzten Post schon geschrieben kommen die Fragen und Antworten in eine Ini-Datei.

Mal ein Konkretes Beispiel für einen Eintrag:

Code:
[Frage1]
Frage=Wieviel ist 3 mal 3
Antwort1=9
Antwort2=12
Antwort3=15
Antwort4=18
Korrekt=1
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat