So weit so gut:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label2.Visible:=True;
Label1.Visible:=False;
Label2.Caption:= 'Was ist 2+2?';
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add('5');
RadioGroup1.Items.Add('6');
RadioGroup1.Items.Add('4');
RadioGroup1.Items.Add('8');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Visible:=true;
Label2.Visible:=false;
case RadioGroup1.ItemIndex of
3: Label1.Caption:= 'Richtig' else Label1.Caption:= 'Falsch';;
end;
end;
end.
So aber wie kann ich jetzt einstellen, dass eine neue Frage gewählt wurde und nun Button2 diese 2. Frage in der RadioGroup abfragen soll. denn bei der zweiten Frage ist ja case RadioGroup1.ItemIndex of 2 Richtig und nicht case of RadioGroup1.ItemIndex of 3...
Danke und
Mfg