Bruchrechnen

[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

Code:

zaehler_richtig:=zaehler_richtig+1;

oder

Code:

inc(zaehler_richtig);