Danke ich werds mal ausprobieren! zur Zeit habe ich das hier:
aber es treten die Zufallszahlen doppelt auf)
Das hier ist ne gekürze Fassung von meinem Quiz(nur mit 6 Fragen, sind aber bei mir 40!)
Schwierigkeitsgrad ist bei mir die Nummer, für die Frage
Delphi-Quellcode:
procedure TForm5.Button1Click(Sender: TObject);
begin
Schwierigkeitsgrad:=1+random(6);
case Schwierigkeitsgrad of
1: begin Frage:='Wie viele Jahre beträgt die Amtszeit des Bundeskanzlers';
A:='4 Jahre';
B:='6 Jahre';
C:='5 Jahre';
D:='3 Jahre';
Loesung:=1;
eins:=1;
end;
2: begin Frage:='Wann war der Bau der Berliner Mauer?';
A:='13.August 1959.';
B:='13.August 1961.';
C:='13.August 1960.';
D:='13.Juni 1960.';
Loesung:=2;
zwei:=1;
end;
3: begin Frage:='Wann war die russische Oktoberrevolution?';
A:='1919';
B:='1920';
C:='1917';
D:='1918';
Loesung:=3;
drei:=1
end;
4: begin Frage:='Wo ist der Sitz des Bundesverfassungsgerichts?';
A:='Berlin';
B:='Karlsruhe';
C:='Bonn';
D:='Kassel';
Loesung:=2;
vier:=1;
end;
5: begin Frage:='Wann wurde die Bundesrepublik Deutschland gegründet?';
A:='1945';
B:='1955';
C:='1951';
D:='1949';
Loesung:=4;
fuenf:=1;
end;
6: begin Frage:='Wie hieß der erste Präsident der Bundesrepublik Deutschland?';
A:='Theodor Heuss';
B:='Friedrich Ebert';
C:='Konrad Adenauer';
D:='Heinrich Lübke';
Loesung:=1;
sechs:=1;
end;
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]