[Roman_s]

Всем привет !!!
Я пишу плеер, плейлист работает за счёт листбокса, и когда последняя песня доходит до конца, появляется следующяя ошибка:
Project1.exe raised exception class EStringListError with message `List index out if bounds (3)`. Process stopped. Use Step or Run to continue.
А потом такая:
List index out if bounds (3)
Помогите разобратся !!!
Всем заранее спасибо !!!

[Aristarh Dark]

Скорее всего у тебя цикл воспроизведения построен до ListBox1.Items.Count когда нужно до ListBox1.Items.Count-1 потому как нумерация идет с нуля.

[Roman_s]

Извините но я ничего непонял, нельзя ли по-подробнее ...
Что именно мне нужно сделать ???

[Vayrus]

var
i:integer;
begin
for I:=0 to ListBox1.Count-1 do
begin
//Здесь че то делаем с ListBox1.Items[i]
end;
end;

По мне так все понятно

[Roman_s]

И куда это всё вписать?

[Alexo]

я в шоке....

[Roman_s]

Вот взял бы и объяснил !!!

[Alexo]

Проще обьяснять уже некуда.

[lmikle]

Это - никуда.
При работе с ListBox (да и с любыл списком TStrings, TStringList, TList и т.д.) надо помнить следующие вещи:
1. Нумерация начинается с 0 и заканчивается Count-1
2. При обращении к элементам списка < 0 или > Count-1 ты получаешь эксепшн.
3. Если ты в цикле удаляешь элементы списка, то цикл должен быть for Count-1 DownTo 0.
4. При удалении элемента списка ассоциированный с ним объект (Objects[i]) сам не удаляется - его наду удалить руками. Исключение - TObjectList с установленным свойством OwnObjects (кажется так).

Скорее всего, у тебя автоматический переход на следующую запись. При конце прослушивания последней записи в списке ты переходишь на следующую, а ее просто нет. Соотв., получаешь ошибку. При переходе конролируй, что он происходит не за границы списка. Например:

Код:

procedure MyPlayList.PlayNext()
begin
  If List1.ItemIndex >= List1.Items.Count-1 
    Then PlayStop // Останавливаем воспроизведение
    Else List1.ItemIndex :=  List1.ItemIndex + 1; // Следующая запись
end;

Аналогично, для перехода назад, только проверяешь на 0.
Вместо остановки может быть и переход к первой/последней записи.

[Roman_s]

Вот это я понимаю ОТВЕТ !!!!
Огромное спасибо !!!