Zufallszahl ziehen ohne wiederholung

[blink182]

hab auch mal eben noch was getestet, ist wahrscheinlich nicht so gut wie der oben gepostete code, da es nach 40 klicks eine endlosschleife gibt, aber das kannst du ja noch beheben

Delphi-Quellcode:

  zufall: array of integer;
  fragen: array of string;
  frage:string;


procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
setlength(zufall,40);
setlength(fragen,40);
for i:=0 to length(zufall) do
zufall[i]:=i+1;
end;

procedure TForm1.Button2Click(Sender: TObject);
var a:integer;
begin
a:=random(39);
if zufall[a]<>0 then
begin
Showmessage(inttostr(zufall[a]));
zufall[a]:=0;
frage:=fragen[a];
end
else
begin
repeat
a:=random(39);
until zufall[a]<>0;
Showmessage(inttostr(zufall[a]));
zufall[a]:=0;
frage:=fragen[a];
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;

gn8 blink182