Abschlussarbeit 12. Klasse Informatik - Quiz

[LeonPP]

Hallo,

danke für die antworten. Ich bemerke das ich dafür noch nicht bereit bin . Könntet ihr mir ein Lazarus Tutorial bzw. Crashkurs anbieten? Damit ich erstmal mehr von der Grundmaterie verstehe denn so etwas hatten wir noch nicht in der Schule.

Danke!
LeonPP

Von den Anhängen bekommt ihr wahrscheinlich Kopfschmerzen ...

[DeddyH]

Ich hab den Link gerade in der Zwischenablage: http://www.delphi-treff.de/downloads/e-book/
Ob da allerdings Ini-Dateien behandelt werden, weiß ich leider nicht, aber der Link zum Tutorial steht ja schon weiter oben.

[Sir Rufo]

Also was in keinem Delphi-(Irgendeine-Programmiersprache-)Handbuch zu finden ist, ist der Weg vom Problem zum Lösungsansatz.

Das ist wie mit den Textaufgaben in der Mathematik. Erst muss ich begriffen haben, worum es dort geht und dann kann ich mit der Mathematik anfangen.

Du musst jetzt ersst einmal ein paar Dinge festlegen:

• Anzahl der Antworten zu einer Frage?
  • Fix: (z.B. immer 3 Antworten)
  • Variabel: 2-(max. 10?) Antworten
• Anzahl der auswählbaren Antworten?
  • 1 bis 1 Antworten müssen ausgewählt werden
  • 0 bis 1 Antworten müssen ausgewählt werden
  • 1 bis n Antworten müssen ausgewählt werden
  • 0 bis n Antworten müssen ausgewählt werden

Nahmen wir einmal an, du legst folgendes fest:

• Zu jeder Frage gibt es 3 Antwortmöglichkeiten
• Es kann nur eine Antwort ausgewählt werden
• Es muss eine Antwort ausgewählt werden

Dann könnte die Ini-Datei so aufgebaut sein

Code:

[Frage0]
Text=Was meinst du?
Richtig=1
[Frage0\Antworten]
0=Ja
1=Nein
2=Vielleicht

Auslesen kann man das dann

Delphi-Quellcode:

FrageSection := Format( 'Frage%d', [FrageIndex] );
AntwortSection := FrageSection + '\Antworten';
FrageText := FragenIni.ReadString( FrageSection, 'Text', '' );
RichtigeAntwort := FragenIni.ReadInteger( FrageSection, 'Richtig', 0 );

// alternativ kann man natürlich auch ein Array verwenden

Antwort0 := FragenIni.ReadString( AntwortSection, '0', '' );
Antwort1 := FragenIni.ReadString( AntwortSection, '1', '' );
Antwort2 := FragenIni.ReadString( AntwortSection, '2', '' );