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

← →
alois (2003-01-02 22:37) [0]

Подскажите, как мне сделать так, чтобы MediaPlayer проигрывал WMA-файлы в случайном порядке.

← →
Макс1 (2003-01-03 14:52) [1]

Наверху есть три синих кнопочки. Самая левая - включить перемешивание. Её и надо нажать.

← →
alois (2003-01-09 23:05) [2]

Наверху чего? Я там ничего не заметил.

← →
Дмитрий К.К. © (2003-01-10 06:24) [3]

Random

← →
alois (2003-01-13 22:31) [4]

Т.е. я так понял, вы предлагаете использовать функцию Random(integer)? А integer будет номер элемента (композиции) в ListBox? Plz, напишите поподробнее.

← →
Дмитрий К.К. © (2003-01-14 06:40) [5]

Номер в списке, номер в массиве и т.д.

← →
alois (2003-01-15 22:55) [6]

Вы не могли бы написать примерчик, plz.

← →
Mihey (2003-01-16 15:30) [7]

Проблема с 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;

Усё!

← →
Дмитрий К.К. © (2003-01-16 21:09) [8]

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

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

← →
Mihey (2003-01-16 22:21) [9]

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

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

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

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

← →
Mihey (2003-01-16 22:24) [10]

Или же ты намекаешь, что в том примере заполнения массива пропущена Random?

← →
Mihey (2003-01-16 22:24) [11]

Или же ты намекаешь, что в том примере заполнения массива пропущена Randomize?

← →
alois (2003-01-16 22:27) [12]

Thanks, alles klar.

Проигрывание WMA-файлов в случайном порядке Найти похожие ветки