Перемешать строки в Listbox

[chiko666111]

Нужен код, процедура или функция для перемешивания строк в Listbox. То есть этакий рандом. Без повторов строк.

[Аватар]

Примерно в таком духе если уже заполнен

  for i:=1 to ListBox.Items.Count do ListBox.Items.Move(0,Random(ListBox.Items.Count));

С повторами строк как нибудь сам на этапе заполнения. К перемешиванию это не имеет отношения

[min@y™]

Вот ещё вариант:

procedure StringsShuffle(Lines: TStrings; ExchangeCount: DWORD);
begin
  Lines.BeginUpdate();
  try
    while ExchangeCount <> 0 do
      begin
        Lines.Exchange(Random(Lines.Count), Random(Lines.Count));
        Dec(ExchangeCount);
      end;
  finally
    Lines.EndUpdate();
  end;
end;

[Serge_Bliznykov]

добавлю.

тут на форуме это обсуждалось.

позволю себе процитировать себя же:

по поводу "тасования" карт:
но мне для решения таких задач ГОРАЗДО больше нравится вариант с перемешиванием. ( можно тут посмотреть) - он очень быст, прост и не требует наличия и манипулирования динамическими массивами!
Единственное, если подходить к вопросу серьёзно, необходимо учитывать, что распределение получается неравномерным. смотри пост №11 (с) kogemrka или, статью, на которую он ссылается:
http://mazanu.com/2008/11/blog-post_20.html

ну посмотрите реализацию - ТУТ


ссылка на статью в цитате мертва.
поэтому вот оригинальная статья: How We Learned to Cheat at Online Poker: A Study in Software Security
частичный перевод статьи: Как не надо тасовать карты