Alles klar,
Lösch mal alle Radiobuttons! Und benutze für die Antworten Radiogroup.items
Im Programm machst du folgendes:
Delphi-Quellcode:
RGrFrage.items.clear; //einträge löschen
if i=1 //hier kannst du auch mal case nehmen
then
begin
RGrFrage.Caption:='Frage 2';
RGrFrage.items.add('Antwort 1'); //Index 0
RGrFrage.items.add('Antwort 2'); //Index 1
RGrFrage.items.add('Antwort 3'); //Index 2
end;
PS: Kostenloses GrafikProgramm:
Gimp
Edit: Ergänzungen:
Das "case" in deinem Code, kannst du jetzt kürzen auf:
Delphi-Quellcode:
vFrage[i]:=RGrFrage.caption;
if RGrFrage.itemindex>=0
then vAntwort[i]:=RGrFrage.items[RGrFrage.itemindex];
Auuserdem solltets du dir
1. überlgene, ob du deine Variablen nicht besser unter private in dein FrmMain legst
2. "i" ist ein äußerst ungünster Variablenname für nichtlokale Variablen, da sie innerhalb von Funktionen häufig als Zählvariable benutzt werden. Da kommen ganz schnell Fehler rein.
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.