Wo wir aber schon dabei sind habe ich jetzt eine andere Frage.
Ich möchte ja zum Schluss ein Ergebnis von diesem Quiz zeigen. Also dass ich dann zum Schluss angebe wie viele Fragen man richtig beantwortet hat. Und ich möchte also, dass nur wenn man die richtige Antwort oder die richtige Antworten angekreuzt (checked) hat (da auch mehrere Antworten richtig sein können) und die falschen eben nicht angekreuzt hat, einen Punkt bekommt und ansonsten nicht.
Also ich habe hier ein Procedure mit druecken (checkbox[i].onclick) und da habe ich schon was hingeschrieben(da werden bei mir eben die richtigen Antworten nicht richtig zusammengezählt):
unten seht ihr den Quell-Code
Wie kann ich das jetzt hinbekommen ?
Danke im Voraus
Lg,
AquaMari
Delphi-Quellcode:
procedure Tform1.druecken;
var i:integer;
begin
if groupbox1.caption=fragen[1] then
for i:=1 to 4 do
if check[i].caption=r_antworten[1] then richtige_A:=richtige_a+1
else richtige_a:=richtige_a;
if groupbox1.caption=fragen[2] then
for i:=1 to 4 do
if (check[i].caption=r_antworten[2]) and (check[i].caption=r_antworten[3]) and (check[i].caption=r_antworten[4]) then richtige_A:=richtige_a+1
else richtige_a:=richtige_a;
if groupbox1.caption=fragen[3] then
for i:=1 to 4 do
if check[i].caption=r_antworten[5] then richtige_A:=richtige_a+1
else richtige_a:=richtige_a;
if groupbox1.caption=fragen[4] then
for i:=1 to 4 do
if (check[i].caption=r_antworten[6]) and (check[i].caption=r_antworten[7]) then richtige_A:=richtige_a+1
else richtige_a:=richtige_a;