random и создание масива.

[blackstersl]

Привет. Хочется сделать для плеера разбросаное воисспроизведение треков, но никак не получается: вот код:

if scheckbox2.Checked = true then
for i:= 0 to listbox1.Items.Count - 1 do
begin
int := 1 + random(listbox1.ItemIndex);
listbox1.ItemIndex := int;
bassplayer1.Open(listbox1.Items[listbox1.itemindex]);
bassplayer1.Play
end;

но он не работает. Что нужно добавить или дописать. Заранее спасибо.

[P_KEV]

Не работает random? В твоем случае оно будет выдавать одни и те же числа. Перед int := 1 + random(listbox1.ItemIndex); на пиши randomize; - генератор псевдослучайных чисел, тогда в int числа будут разные.
------
....
randomize;
begin
int := 1 + random(listbox1.ItemIndex);
......
----------

[blackstersl]

всёравно не работает(вообще не переключает).

[ArtInt]

Попробуй заменить

int := 1 + random(listbox1.ItemIndex);

на

int := 1 + random(listbox1.Items.count-1);

Ну и как говорилось randomize сначала поставь.

[blackstersl]

я вот так попробовал, но оно переключает только вниз и всё ближе к концу плейлиста:

begin
randomize;
listbox1.ItemIndex := listbox1.ItemIndex + i;

как сделать что б меняло числа не только вниз, а и вверх?

[ArtInt]

Но ведь это будет уже не случайный выбор трека.
Если вверх подниматься, то

listbox1.ItemIndex := listbox1.items.count - i;

[blackstersl]

ну а в windows media как работает random или randomize?

[Пепел Феникса]

randomize ничего не дает.
там random+защита от повторений
то есть там есть список и формируется чтото типа последовательности треков на основе Рандома

[5naip]

от перменной int в целях оптимизации можно избавиться

[Баламут]

Нечто подобное уже обсуждалось здесь: http://programmersforum.ru/showthrea...657#post205657