Paar Hinweise dazu:
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;