Zufallswort erzeugen - verhindern dass Wort 2x hintereinande

[marabu]

Hallo Sebastian,

was hältst du hiervon:

Delphi-Quellcode:

procedure RandomizeStrings(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

Obergrenze von i optimiert