Как исправить ошибку listerror list index out of bounds?

Question

[Евгений Иванов]

На форме есть компонент sListBox1 (разновидность ListBox1 в Alpha Controls).
Туда добавляются элементы
sListBox1.Items.Add('..........');

В коде мне нужно перебрать все элементы этого sListBox1 . Работа идет в потоке.

procedure TMyThread.Execute;
var
i:integer;
begin
for i:=0 to form1.sListBox1.Items.Count-1 do
begin
full_filename_path:=form1.sListBox1.Items[i];
filename_name:=ExtractFileName(form1.sListBox1.Items[i]);
//.....
end;
end;
end;

При добавлении более одного файла, возникает ошибка
Ошибка listerror list index out of bounds (1).

Как исправить ошибку listerror list index out of bounds?

Comments

[Антон Федорян]

begin
  full_filename_path:=form1.sListBox1.Items[i];
  filename_name:=ExtractFileName(form1.sListBox1.Items[i]);
end;

[Евгений Иванов]

Антон Федорян, Изначально в коде у меня так и было, как вы написали. Исправил в вопросе.
Когда писал вопрос, просмотрел что в коде у меня есть begin и end; в конструкции цикла.

[Александр]

Никогда и ни при каких обстоятельствах нельзя доступаться к визуальным компонентам из потоков. VCL в Delphi не потокобезопасны. Хотя текущая ошибка и не связана с тем, что вы работаете из потока, всё равно так не делайте. Иначе вас ожидает множество других непредсказуемых ошибок.

[Евгений Иванов]

Александр, вы правы. Но всё же и с Synchronize, и даже при уходе от визуальных компонентов - например передачей до потока содержимого sListBox1 в TStringlist, возникает аналогичная ошибка.
А с 1 файлом работает. С 2мя и более - нет.

[Константин Цветков]

Поставьте точку остановки отладчика на начала цикла.

Answer 1

[Константин Цветков]

Границы счётчика FOR вычисляется один раз перед циклом. Если в основном потоке меняется form1.sListBox1, то может не оказаться нужного Items[i]. Или проверяйте его наличие. Или используйте цикл WHILE, в котором сравнение счётчика с условием будет проверяться каждый раз.
Замечание: оптимизатор может изменить направление FOR.

Совет: не связывайте модули.
То есть у TMyThread должен быть свой TStrings, в который нужно передать form1.sListBox1.Items.

Comments

[Евгений Иванов]

Не очень понял.
Я добавляю в sListBox1 элементы. И запускаю цикл.
Ничего в потоке в sListBox1 не добавляю. Как там всё было, так и есть.

Я добавляю в sListBox1, с помощью Opendialog путь к файлу.
И в цикле открываю файлы.
Простая, типовая задача.

[Константин Цветков]

Евгений Иванов, Зачем отдельный поток? Выполняйте свою обработку на form1.

[Евгений Иванов]

Константин Цветков, Поток т.к. там много кода. Который долго выполняется. Пример упрощен.

[Константин Цветков]

Евгений Иванов, То есть у вас отдельный поток, что бы form1 могла добавлять в sListBox1?

[Константин Цветков]

Евгений Иванов, Цикл на WHILE тоже ошибку даёт?

Answer 2

[kalapanga]

А если в TMyThread.Execute с использованием Synchronize получить содержимое листбокса и дальше работать с этим содержимым?