[Petros9n]

Я делаю программу в которой пользователь должен будет угадать играющую песню из 4 вариантов, написал кривой код, помогите пожалуйста его доработать, в Caption одной кнопки заносится имя песни которая сейчас играет, а оставшиеся 3 случайные песни из TStringList, надо сделать чтобы они не повторялись.
Кнопки объявил как массив:

Код:

var
  Form1: TForm1;
  searchResult : TSearchRec;
  mlist: TStringList;
  l: array [0..3] of TButton;

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
i,n:integer;

begin
if mlist.Count>0 then
begin
 l[0].Caption := '';
 l[1].Caption := '';
 l[2].Caption := '';
 l[3].Caption := '';
 i:=random(mlist.Count-1);
 MediaPlayer1.FileName:=mlist.Strings[i];
 n:=random(4);
 l[n].Caption:=mlist.Strings[i];
 mlist.Delete(i);
 MediaPlayer1.Open;
 MediaPlayer1.Play;
 for n:=0 to 3 do
  begin
  i:=random(mlist.Count-1);
   if l[n].Caption='' then l[n].Caption:=mlist.Strings[i];
  end;
  end
else
ShowMessage('Песен больше нет');
end;

[Psychotech]

насколько помню нужно добавить
randomize;
перед очередным использованием функции рандома - он её обнуляет (или что то в этом роде)

[Petros9n]

у меня Randomize; прописан в FormCreate.
добавление его еще перед i:=random(mlist.Count-1); не помогает.

[M.A.D.M.A.N.]

Я просто в цикле генерил рандом до тех пор, пока число не получалось уникальным.

[Petros9n]

Как проверить число на уникальность, в моем случаи ?
число i надо для того чтобы по нему взять запись из TStringList в котором хранится список mp3 песен из определенной папки.

[Vocabulary]

Вариант:
чтобы элементы не повторялись их надо удалять из списка после выбора.
Если жалко терять список, то делать его копию перед использованием.

[Bargest]

Еще вариант:
1) Представим список в виде массива [0..N-1] где N - число элементов в списке.
2) M:=N;
3) Цикл пока M>0:
3.1) K := random(M);
3.2) Переставляем в массиве элемент K и элемент M-1; dec(M);
Получаем перемешанный список песен. После чего благополучно берем все песни по порядку.