Probleme mit Quizprogramm

**Fantasy**

Ich arbeite an einem Programm, welches dem User eine Frage stellt und dann 4 Antwortmöglichkeiten bietet.
Dabei habe ich vor, viele verschiedene Frage zu stellen, aber dabei muss ich viele Buttons verwenden und die Fragen kommen in einer festgelegte Reihenfolge (siehe Quelltext).

Gibt es einen Möglichkeit, weniger Buttons zu verwenden, weil wenn z.B. ich 50 Fragen stelle, muss ich auch etwa 50 Buttons verwenden.

Ich will aber, dass die Fragen zufällig auftretten und die beantworteten Fragen sollen nicht wieder erscheinen.

Außerdem sollten Fragen in einer bestimmten Zeit beantwortet werden, wenn nicht, dann gilt das als falsch und die nächste Frage soll kommen.

Ich weiß aber leider nicht, wie ich das hinbekomme.

Ich würde mich freuen, wenn ihr mir so schnell wie möglich helfen könntet.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject); // Programm startet

begin

panel1.Caption:='Wo liegt Deutschland?';   // Erste Frage

Radiobutton1.Caption:='Asien';

Radiobutton2.Caption:='Europa';

Radiobutton3.Caption:='Afrika';

Radiobutton4.Caption:='Nordamerika';

button2.Visible:=false;

button3.Visible:=false;

end;

procedure TForm1.Button1Click(Sender: TObject);  //Nutzung 1. Button

begin

if Radiobutton2.Checked = true then showmessage('richtig')

else showmessage('falsch');

panel1.Caption:='Wo liegt Kongo?';           // 2. Frage

Radiobutton1.Caption:='Australia';

Radiobutton2.Caption:='Europa';

Radiobutton3.Caption:='Afrika';

Radiobutton4.Caption:='Nordamerika';

button2.Visible:=true;                      

end;

procedure TForm1.Button2Click(Sender: TObject);   // Nutzung 2. Button

begin

if Radiobutton3.Checked = true then showmessage('richtig')

else showmessage('falsch');

panel1.Caption:='Wo liegt Rom ?';           // 3. Frage

Radiobutton1.Caption:='Italien';

Radiobutton2.Caption:='Spanien';

Radiobutton3.Caption:='Mexiko';

Radiobutton4.Caption:='Russland';

button3.Visible:=true;                      

end;

procedure TForm1.Button3Click(Sender: TObject);  // Nutzung 3. Button

begin

if Radiobutton1.Checked = true then showmessage('richtig')

else showmessage('falsch');

end;

end.

Probleme mit Quizprogramm

Probleme mit Quizprogramm

Forumregeln