Решение проблемы столкновений в игре на Delphi 7: ошибка "List Index Out Of Bounds"

Delphi , Компоненты и Классы , Списки

Вопрос, с которым столкнулся разработчик, связан с ошибкой "List Index Out Of Bounds" при удалении элементов из списка объектов в коде игры, написанном на Delphi 7. Эта ошибка возникает при проверке столкновений между пулями и врагами в игре "Space Invaders". Ошибка проявляется в том, что при обнаружении столкновения и попытке удаления врага и пули из списка объектов, происходит выход за пределы индекса списка. Это приводит к остановке программы, несмотря на то, что удаление элементов происходит корректно в момент выполнения программы в виде исполняемого файла.

Описание проблемы

Код проверки столкновений в игре использует двойной цикл для перебора списков пуль и врагов. При обнаружении столкновения происходит удаление соответствующих элементов из списков с помощью метода Delete. Однако, в процессе выполнения цикла возникает ошибка "List Index Out Of Bounds", указывающая на то, что происходит попытка доступа к несуществующему элементу списка.

Пример кода, вызывающего ошибку

procedure TForm1.CheckCollision(enemies, bullets: TObjectList);
var ll, kk: integer;
begin
  for ll := Form1.bullets.Count-1 downto 0 do
  begin
      for kk := Form1.enemies.Count-1 downto 0 do
      begin
        // Проверка столкновения
        if ... then
        begin
          Form1.enemies.Delete(kk); // Ошибка здесь и ниже
          Form1.bullets.Delete(ll);
          inc(score);
        end;
      end;
  end;
end;

Подход к решению

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

Решение

Добавить команду break; после удаления элементов, чтобы прервать внутренний цикл:

procedure TForm1.CheckCollision(enemies, bullets: TObjectList);
var ll, kk: integer;
begin
  for ll := Form1.bullets.Count-1 downto 0 do
  begin
      for kk := Form1.enemies.Count-1 downto 0 do
      begin
        // Проверка столкновения
        if ... then
        begin
          Form1.enemies.Delete(kk);
          Form1.bullets.Delete(ll);
          inc(score);
          break; // Прерываем внутренний цикл
        end;
      end;
      // Прерываем внешний цикл, если внутренний был прерван
      if kk < 0 then break;
  end;
end;

Дополнительные рекомендации

• Использовать отладчик для пошагового выполнения кода и анализа переменных.
• Использовать Assert для проверки корректности индексов доступа к элементам списка.
• Учитывать свойство OwnsObjects списка объектов при работе с удалением элементов.

Заключение

Проблема "List Index Out Of Bounds" была решена путем внесения изменений в алгоритм проверки столкновений. Добавление команды break; позволило избежать некорректного доступа к элементам после их удаления. Это решение сделало программу более надежной и устранило причину остановки при возникновении столкновений.

Создано по материалам из источника по ссылке.

Разработчик столкнулся с ошибкой 'List Index Out Of Bounds' в игре на Delphi 7 при попытке удаления объектов после обнаружения столкновений, что приводит к сбою программы.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Списки ::