Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Проигрывание WMA-файлов в случайном порядке [D6, WinXP]

alois © (2003-01-02 22:37:00)
Подскажите, как мне сделать так, чтобы MediaPlayer проигрывал WMA-файлы в случайном порядке.

alois (2003-01-16 22:27:00) [1]
Thanks, alles klar.

Mihey (2003-01-16 22:24:00) [2]
Или же ты намекаешь, что в том примере заполнения массива пропущена Random?

Mihey (2003-01-16 22:24:00) [3]
Или же ты намекаешь, что в том примере заполнения массива пропущена Randomize?

Mihey (2003-01-16 22:21:00) [4]
> А Randomize для чего, по-твоему, придуман?

Чё то я не понял. Т.е. ты хочешь сказать, что если я напишу:

Randomize;
For i := 1 to 50 do
Label1.Caption + " " + IntToStr(Random(50));

то получу набор из неповторяющихся чисел???

Дмитрий К.К. (2003-01-16 21:09:00) [5]

> Mihey (16.01.03 15:30)
> Проблема с Random в том, что несколько раз может выпасть
> одна и та же композиция.

А Randomize для чего, по-твоему, придуман?

Mihey (2003-01-16 15:30:00) [6]
Проблема с Random в том, что несколько раз может выпасть одна и та же композиция. Тебе нужно составить массивчки с непотворяющимися значениями. Используй функцию:

procedure FillArray(var A: array of Integer);
var

I, S, R: Integer;
begin

for I := 0 to High(A) do A[I] := I;
for i := High(A) downto 0 do begin
R := Random(I);
S := A[R]; A[R] := A[I]; A[I] := S;
end;
end;

Усё!

alois (2003-01-15 22:55:00) [7]
Вы не могли бы написать примерчик, plz.

Дмитрий К.К. (2003-01-14 06:40:00) [8]
Номер в списке, номер в массиве и т.д.

alois (2003-01-13 22:31:00) [9]
Т.е. я так понял, вы предлагаете использовать функцию Random(integer)? А integer будет номер элемента (композиции) в ListBox? Plz, напишите поподробнее.

Дмитрий К.К. (2003-01-10 06:24:00) [10]
Random

alois (2003-01-09 23:05:00) [11]
Наверху чего? Я там ничего не заметил.

Макс1 (2003-01-03 14:52:00) [12]
Наверху есть три синих кнопочки. Самая левая - включить перемешивание. Её и надо нажать.

Наверх

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