Problem bei Quiz mit Zufallszahlen

[Timx]

Bekomme das mit dem dynamischen Array irgendwie nicht so richtig hin.

[Jumpy]

Paar Hinweise dazu:

Delphi-Quellcode:

Var GestellteFragen: Array of Integer;

Wenn du nun eine Nr. (Frage) per Random ermittelt hast:

Delphi-Quellcode:

Setlength(GestellteFragen,Length(GestellteFragen)+1)
GestellteFragen[High(GestellteFragen)]:=NummerDerGeradeErmitteltenFrage;

Wie ermittelst du nun die Nummer:

Delphi-Quellcode:

NummerDerGeradeErmitteltenFrage:=Random(FragenAnzahl)
while not FrageWarSchon(NummerDerGeradeErmitteltenFrage) or AlleFragenDurch do
  NummerDerGeradeErmitteltenFrage:=Random(FragenAnzahl);

Und dafür die Funktion FrageWarSchon:

Delphi-Quellcode:

FrageWarSchon(Nr:Integer):Boolean
var i:integer;
begin
  Result:=false;
  For i:= Low(GestellteFragen) to High(GestellteFragen) do
    if GestellteFragen[i]=Nr then
      begin
      Result:=true;
      exit;   
      end;
end;