TStrings-Elemente zufällig anordnen

[DevilsCamp]

Ich habe z.Z. folgenden Code um die Strings einer Listbox zufällig anzuordnen:

Delphi-Quellcode:

procedure TForm1.StringListZufall;
var
  randomliste : TStringList;
  i           : Integer;
  j           : Integer;
begin
  randomliste := TStringList.Create;

  while (ListBox1.Items.Count>0) do
  begin
    i := Random(ListBox1.Items.Count);
    randomliste.Add(ListBox1.Items[i]);
    ListBox1.Items.Delete(i);
  end;

  ListBox1.Items.Assign(randomliste);

  randomliste.Free;
end;

Doch leider werden die Items oft kaum durcheinander gewürfelt...

Gibt es vielleicht eine bessere Lösung?

[Khabarakh]

Permutationen heißt das Zauberwort .

[dahead]

Randomize hast du aufgerufen?

Um das noch etwas zu variieren, könntest du die Items nicht einfach adden, sondern ab einer gewissen menge ein Insert(x) verwenden (x = zufällige Zahl <= Menge der bereits enthaltenen Einträge).

[marabu]

Hallo Marc,

wenn die Einträge in deiner ListBox schon vorgegeben sind dann hilft dir vielleicht dieser Code:

Delphi-Quellcode:

// Shuffle(ListBox.Items);

procedure Shuffle(sl: TStrings);
var
  i: integer;
begin
  for i := 1 to sl.Count - 1 do
    sl.Exchange(Pred(i), Pred(i + Random(sl.Count - i)));
end;

Grüße vom marabu

[DevilsCamp]

Zitat von marabu:

Hallo Marc,

wenn die Einträge in deiner ListBox schon vorgegeben sind dann hilft dir vielleicht dieser Code:

Delphi-Quellcode:

// Shuffle(ListBox.Items);

procedure Shuffle(sl: TStrings);
var
  i: integer;
begin
  for i := 1 to sl.Count - 1 do
    sl.Exchange(Pred(i), Pred(i + Random(sl.Count - i)));
end;

Grüße vom marabu

Hey danke, das funzt prima...