Nein so hatte ich das nicht gemeint
Delphi-Quellcode:
type
TFrage = record
Frage: string; // Die Frage
Kategorie: byte; // Welcher Kategorie wird diese Frage zugeordnet? Die Kategorien ändern sich NIE
IndexDerFrageZumGegenrechnen: integer; // Welche Frage wird mit dieser Frage gegengerechnet?
GewaehlteAntwort: byte; // Hier steht drin, was man angekreuzt hat
end;
Wenn du deine Schleife durchläufst passiert folgendes (Du brauchst dafür noch ein Array of integer, mit von 0 bis 3)
Delphi-Quellcode:
var
Werte: Array[0..3] of integer;
///// UND IN DER SCHLEIFE ////
inc(Werte[Fragen[i].Kategorie],Fragen[i].GewaehlteAntwort); // Jeder Kategorie ist eine Zahl zugeordnet | Welche Kategorie eine Frage hat Steht in Fragen[i].Kategorie also muss ich den Wert im Werte-Array erhöhen, der Die kategorie repräsentiert | Und zwar um den Wert der Antwort, also GewaehlteAntwort (Es wird nicht die Nummer der Antwort gespeichert, sondern der Wert)
Hinterher kannst du dann einfach schauen, welcher Wert am höchsten ist oder so.
Fragen?
Edit: Da fällt mir auf: Herzlich Willkommen in der
DP!
