Random ohne doppelte Zahlen

[juergen]

Hallo,

hier würde sich auch ein Array vom Typ Boolean anbieten.

Pseudocode:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var My_LisboxIndex: Array[1..(Listbox.Count)] of Boolean;
     i, z: Integer;
begin
  for i:= 1 to (Listbox.Count) do My_LisboxIndex[i]:=false;
  for i:=1 to (Listbox.Count)  do begin
   repeat
    z:=random(Listbox.Count) + 1
   until My_LisboxIndex[z] = false;
   My_LisboxIndex[z]:=true;
  end;
  for i:=1 to (Listbox.Count)]  do
   if My_LisboxIndex[i] then Listbox.TopIndex := (i); //oder halt irgendwas anderes an dieser Stelle tun...
end;