[Юрка]

Доброго времени суток!
Возник такой вопрос:
Пишу медиаплеер, пока самый простой. Столкнулся с непонятной проблемой. Суть в том, чтобы из плейлиста рандомом вытягивать треки и проигрывать их. Вот кусок кода процедуры:
флажок - выбор проигрывания в случайном порядке
i,n - переменные integer, просто счетчики

Код:

if Form1.CheckBox1.Checked=true then
begin
rand:randomize;
n:=Form1.ListBox1.Count-1;
i:=Random(n);
Form1.Mediaplayer1.FileName:=Form1.ListBox1.Items[i];
Form1.MediaPlayer1.Open;
Form1.MediaPlayer1.Play;
goto rand;
end;

lmikle: Тегами пользуемся правильно!!!

Проблема в том, что именно при попытке проиграть выбранный трек, программа зависает наглухо.
Через отладчик код выполняется последовательно, без ошибок.
Если надо, могу весь проект выложить.
Заранее спасибо!

[Pilot_Red]

)))))) дк конечно он у тебя по кругу бегает, т.е. код)))
просто не понятно зачем там тебе метки нужны, и всякие бессмысленные переходы.

[Юрка]

так он переходит к метке когда заканчивает проигрывать трек и снова генерирует случайное значение

[Assistant]

а почему Вы решили что он переходит именно когда закончит играть? он переходит сразу же как только начал играть, поэтому и виснет в бесконечном цикле.

[Pilot_Red]

Сообщение от Юрка

так он переходит к метке когда заканчивает проигрывать трек и снова генерирует случайное значение

Ну не знаю..........
По-моему это не так...

Напиши перед goto Form1.caption:='test';
и запусти проект.. если название формы сразу поменяется то ты не прав...

[Юрка]

Спасибо за совет. Но поставил перед переходом эту строку. В результате - заголовок поменялся, а дальше прога зависла.

[Юрка]

Да, скорее всего, так и есть, и он переходит в тот момент, когда начинает выполнять команду "Play"

[Pilot_Red]

Сообщение от Юрка

Спасибо за совет. Но поставил перед переходом эту строку. В результате - заголовок поменялся, а дальше прога зависла.

я тебе не предлагал решение проблемы, а лишь хотел показать что после команды play у тебя обработчик не останавливается и херачит дальше

[Юрка]

Что-нибудь другое придумаю...

[Konrad]

И тут...

А определить когда запись будет проиграна сами знаете что мешает?
А уж потом переходить к следующей.

Ну а о инновационности организации цикла:

PHP код:

begin
rand:
........
........
goto rand;
end; 


промолчу.