Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**RomanK**

Ich hab deinen Code mal etwas vereinfacht!

Code:

			procedure TForm1.Button1Click(Sender: TObject);

begin

// wenn eine Lösung eingegeben wurde

if (radiobutton1.checked) or (radiobutton2.checked) or (radiobutton3.checked) or (radiobutton4.checked)

then begin

label7.caption:=' ';

label1.caption:='Frage - 1b';

aufgabe_2_im.visible:=true;

loesung_2_a_im.visible:=true;

loesung_2_b_im.visible:=true;

loesung_2_c_im.visible:=true;

loesung_2_d_im.visible:=true;

aufgabe_2_dic.visible:=true;

end

else

//wenn nicht

label7.caption:='Bitte zuerst eine Antwort auswählen!';

//wars richtig ??

if (radiobutton1.checked) or (radiobutton2.checked) or (radiobutton3.checked)

 then zaehler_falsch:=+1;

if radiobutton4.checked then zaehler_richtig:=+1;

if (radiobutton1.checked) or (radiobutton2.checked) or (radiobutton3.checked)

then Aufgabe_1_falsch:=1;

if radiobutton4.checked=true then Aufgabe_1_richtig:=1;

//Radiobuttons entchecken

radiobutton1.checked:=false;

radiobutton2.checked:=false;

radiobutton3.checked:=false;

radiobutton4.checked:=false;

end;

PS: ich habe es ned geteste also ohne Gewähr.
PSS: Ich hab den Code nur anderst dargestellt, nicht die Funktion des Codes verändert!!!

Du willst doch zaehler_richtig erhöhen, oder ?? das geht aber mit +1 nicht!
Mach das entweder mit

markieren

Code:

zaehler_richtig:=zaehler_richtig+1;

oder

markieren

Code:

inc(zaehler_richtig);