Das die Unit der richtigen antworten(der anfang)!
Delphi-Quellcode:
function quizrichtig(n,m: Integer): string;
var feld: array [1..60,1..6] of string;
begin
feld[1,6]:='Zugspitze';
feld[2,6]:='8';
feld[3,6]:='Damenschuhe';
Das die Unit der Anworten überhaupt(der anfang)!
Delphi-Quellcode:
function quizant(n,m: Integer): string;
var feld: array [1..60,1..6] of string;
begin
feld[1,2]:='Watzmann';
feld[1,3]:='Zugspitze';
Das die Unit der Fragen(der anfang)!
Delphi-Quellcode:
function quizfragen(n,m: Integer): string;
var feld: array [1..60,1..6] of String;
begin
feld[1,1]:='Wie heißt der höchste Berg Deutschlands?';
feld[2,1]:='Wie viele Beine hat eine Spinne?';
Das ist meine Button Click Prozedur:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
panel3.Caption:='0 €';
panel2.caption:='Nr. 1';
n:=random(3)+1;
panel1.caption:=quizfragen(n,1);
radiobutton1.caption:=quizant(n,2);
radiobutton2.Caption:=quizant(n,3);
radiobutton3.caption:=quizant(n,4);
radiobutton4.Caption:=quizant(n,5);
[color=#ff0000]if quizfragen(n,1)=quizrichtig(n,6) then[/color]
das rot markierte funktioniert nicht, der rest schon!
Nun will ich Testen ob der markierte Radiobutton auch die richtige Antwort ist! Und ich will es mit Modulen/Units machen!
Wie lautet der Quelltext zur überprüfung ob Radiobutton auch richtige antwort ist?