Du solltest jeder Kategorie einen Zahlenwert zuordnen logischerweise:
-depressiver -> 0
-hysterischer -> 1
-zwanghafter -> 2
-schizoider -> 3
Das definierst du dann als Konstanten
Delphi-Quellcode:
const
depressiv = 0;
hysterisch = 1;
zwanghaft = 2;
schizoid = 3;
Jetzt sieht eine Frage so aus
Delphi-Quellcode:
type
TFrage = record
Frage: string;
Kategorie: byte;
IndexDerFrageZumGegenrechnen: integer;
GewaehlteAntwort: byte;
end;
Jetzt Kannst du zum Beispiel mit
Fragen[0].Kategorie := hysterisch
einfach eine Kategorie zuweisen. In gewählte Antwort wird gespeichert, was der Benutzer gewählt hat, und hinterher, wenn der test fertig ist, kannst du das ganze einfach mit einer Schleife auswerten.
Klar soweit?
