AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Lazarus (IDE) Abschlussarbeit 12. Klasse Informatik - Quiz
Thema durchsuchen
Ansicht
Themen-Optionen

Abschlussarbeit 12. Klasse Informatik - Quiz

Ein Thema von LeonPP · begonnen am 17. Nov 2015 · letzter Beitrag vom 17. Nov 2015
 
Benutzerbild von Sir Rufo
Sir Rufo

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

AW: Abschlussarbeit 12. Klasse Informatik - Quiz

  Alt 17. Nov 2015, 14:50
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', '' );
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)
  Mit Zitat antworten Zitat
 

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz