перемешать стринглист

← →
Gu (2011-07-11 11:00) [0]

нет ли у стринглиста какой-нить функции, которая бы перемешивала все итемы случайным образом? или алгоритма какого? пока только сделал:
1. добавляем ко всем итемам в начало FormatFloat("0000", random(9999))
2. выполняем stringlist.sort
3. удаляем у всех итемов 4 первых символа

получаем довольно неплохо перемешаный стринглист

← →
Gu (2011-07-11 11:02) [1]

может как то проще можно?

← →
Anatoly Podgoretsky © (2011-07-11 11:11) [2]

> Gu (11.07.2011 11:00:00) [0]

Ага и функция удаления четных и нечетных элементов, и функция хорового
пения.

← →
Юрий Зотов © (2011-07-11 11:16) [3]

Пишем функцию:
function CompareItems(List: TStringList; Index1, Index2: Integer): Integer; begin Result := Random(3) - 1 end;
Затем вызываем метод:
List.CustomSort(CompareItems);
Не факт, что этот способ лучше, но он должен быть быстрее. Надо пробовать и сравнивать.

← →
Dimka Maslov © (2011-07-11 12:34) [4]

Вызываем Exchange много много раз, определяя индексы при помощи random

http://en.wikipedia.org/wiki/Fisher–Yates_shuffle

← →
Gu (2011-07-12 06:55) [6]

спасибо

перемешать стринглист Найти похожие ветки