Autor Beitrag
ManDel
Hält's aus hier
Beiträge: 1



BeitragVerfasst: Di 25.01.05 15:28 
Also, ich soll für den Informatikunterricht ein Delphiquiz auf Datenbankbasis programmieren. Ich habe hier zwar schon ähnliche Einträge und Themen gefunden, die sich aber dennoch von meinem unterscheiden.

Das Quiz soll eine Datenbank enthalten, die Informationen enthält und eine Datenbank, die die Fragen enthält. Dabei konnte man zwischen den Gebieten Mathe, Physik und Informatik wählen.

Die Datenbanken sollen folgendermaßen aussehen:
Die Speicherung erfolgt mithilfe von record, array und file, wobei die Datensätze in einer Textdatei abgespeichert werden. Es kann beim Fach Physik zum Beispiel aussehen wie ein Steckbrief. Größe - Formelzeichen - Einheit, als Beispiel Masse - m - Kilogramm.

Das erstellen der Datenbanken war soweit auch kein Problem. Das eigentliche kommt jetzt. In einem Quiz soll dann z.B. gefragt werden "Welche Einheit hat die Masse?". In Radiogroups können Auswahlmöglichkeiten vorhanden sein und der PC soll dann auf die Datenbanken zugreifen und rauslesen, ob das Richtige geklickt wurde. Normalerweise würde ich Befehle in der Art von

if Radiogroup1.ItemIndex=0 then Panel1.Caption:='Richtige Antwort'; eingeben.

Aber so soll es ja nicht sein, der PC soll auf die Datenbank zugreifen und das erscheint mir rätselhaft. Zudem soll man, falls denn der Zugriff irgendwann man funktionieren sollte, nicht 3mal klicken können, bis man die richtige Antwort gefunden hat.

Hat vielleicht irgendwer eine Idee??? :?

Grüße, ManDel

Moderiert von user profile iconraziel: Delphi-Tags hinzugefügt
tomtom62
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 278

WIN 2000, XP prof
D5 prof.
BeitragVerfasst: Di 25.01.05 16:12 
Du könntest in einem zusätzlichen Feld die richtige Antwort angeben. Wenn Du also z.B. 4 Antworten hast und die richtige Antwort wäre 3, dann würdest Du in das Feld, hier "Richtige" eine 3 schreiben. Dann ginge eine Abfrage wie die hier in etwa:

ausblenden Delphi-Quelltext
1:
2:
if Radiogroup1.ItemIndex=Table.FieldByName('Richtige').asInteger then
 Panel1.Caption:='Richtige Antwort';


Moderiert von user profile iconraziel: Code- durch Delphi-Tags ersetzt.