Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перемешать ListBox без повторов [D5, XP]


Страницы:   1 2

djkondakov ©   (2009-03-19 15:26:00) 

Доброго времени суток! Подскажите, как можно с помощью Random'а перемешать строки в ListBox'e так, чтобы они не повторялись? Я над этим уже 3 дня бьюсь...


djkondakov   (2009-03-19 16:33:00) [21]

У меня при использовании Random'a некоторые строки записываются несколько раз, а некоторые не попадают в список совсем. Получается типа того:
Было
1
2
3
4
5
6
7
8
Стало
5
7
4
5
5
3
2
6
А идея в том, чтобы в цикле строки со случайно сгенерированными индексоми копировать из исходного списка в новый.


Anatoly Podgoretsky   (2009-03-19 16:15:00) [22]

За три дня можно написать программу или две, а не то что перемешать.


Медвежонок Пятачок   (2009-03-19 15:58:00) [23]

как можно с помощью Random'а перемешать

С помошью рандома ничего перемешать не выйдет.
Он ничего не перемешивает.


SergeyIT   (2009-03-19 15:57:00) [24]

А можно каждой строке прописать случайное число, определить свою функцию Sort и отсортировать.


Palladin   (2009-03-19 15:53:00) [25]

Телепатор мне подсказывает, что персонаж не может третий день прочитать справку и узнать про Randomize.


Сергей М.   (2009-03-19 15:52:00) [26]

8 это я загнул.
5-ти достаточно чтобы продуться в пух и прах)


Сергей М.   (2009-03-19 15:50:00) [27]


> перемешать .. чтобы .. не повторялись


Если в колоде 8 тузов, то хоть как перемешивай - все равно их будет 8


SergeyIT   (2009-03-19 15:39:00) [28]

А заполнить, то есть перенести, из другого листа случайно. Большой список-то.


Palladin   (2009-03-19 15:36:00) [29]

бедняжка... без каких повторов то?


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо