[kriv0y]

Необходимо сделать тест, показывает десять картинок и в это время играет один звук и нужно выбрать нужную картинку ( например картинка машины и рев двигателя). Звуков соответсвенно тоже 10, для каждой картинки, что бы все картинку угадать. Загрузил картинки в массив и на форму. Звуки так, же.
pic:array[1..10] of TImage;
snd:array[1..10] of integer; //Беру по порядку пути к файлам mp3 и проигрываю.

Вот как мне сравнивать картинку и звук, что бы сделать тест. Необходимо получаеться вводить дополнительные индефикаторы, но я не разберусь(

[iGeTT]

Ну например в начале проигрывания звука заносишь номер звука в переменную i, а при нажатии сравниваешь

Код:

if Select = i then showmessage('Yeah, it's right') else showmessage('Try again')

[kriv0y]

да, это я могу, но как мне индификатор повесить на картинки image1.Picture; ведь они у меня в таком массиве p:array[1..10] of TImage; А я не могу сравнивать число или строку с картинкой которую беру из массива.

[lmikle]

Сообщение от kriv0y

да, это я могу, но как мне индификатор повесить на картинки image1.Picture; ведь они у меня в таком массиве p:array[1..10] of TImage; А я не могу сравнивать число или строку с картинкой которую беру из массива.

У тебя есть индекс. Надо что бы по порядку зауки и картинки в массивах совпадали. Когда выводишь (загружаешь) картинки, то их индексы можно положить в свойство Tag (оно для того и сделано). Соответсвенно, выбираешь случайным образом индекс, по нему проигрываешь звук, далее юзер кликает по картинке и ты просто сравниваешь значение индекса с записанным в Tag значением. Совпадает - угадал.

[kriv0y]

Сообщение от lmikle

У тебя есть индекс.

Спасибо! Это весьма исчерпывающий ответ для меня. Не могли бы вы помочь еще в процедуре проигрывания звука, у меня пока по клику на картинке отображает сообщение Yes/No хотелось бы что бы проигрывался звук вместо сообщения. Но как вставить не пойму, ведь в цикле может быть только одна процедура, а для проигрывания и откртия файла их три, примерно таких

mediaplayer1.FileName:=file.mp3;
MediaPlayer1.Open;
MediaPlayer1.Play;

А это моё событие при клике на картинку

Код:

procedure TForm7.Image12Click(Sender: TObject);
begin
if image12.Tag=y then  ShowMessage('Yes')

else  ShowMessage('NO ');

[iGeTT]

begin end...