Найти причину ошибки в игре

@Limsn · Регистрация: 19.05.2017

Студворк — интернет-сервис помощи студентам

https://yadi.sk/d/vWl7L-673NmrzV - ссылка на игру(Альтернатива) - .rar
https://yadi.sk/d/kFIgjuuZ3Nms8R - ссылка на игру(Альтернатива) - .zip

При выстреле очередью по врагу , выдаётся ошибка на 239 строке в модуле Objects , функции возврата переменной X - вызвал класс исключения 'External Sigsegv'

Хотя при запуске через .exe ошибки не наблюдается , но мне просто интересно в чем дело.Я не очень опытен в Delphi , поэтому мне не хватает опыта заметить ошибку ,но скорее всего она находиться в условии столкновения пули и врага(строки 249 - 252)

@northener · 16.10.2017, 01:31

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

класс исключения 'External Sigsegv'

Это в конференцию Lazarus.

@volvo · 16.10.2017, 11:59

Limsn, ну добавь полную проверку, на все объекты, которые используются в выражении:

Pascal

247
248

        For j := 0 to 99 do
           If (Bullet[j] <> nil) and (Enemy[i] <> nil) then

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

@northener пофигист широкого профиля 4682 / 3118 / 857 Регистрация: 15.07.2013 Сообщений: 17,970
	16.10.2017, 01:31	2
	Сообщение от Limsn класс исключения 'External Sigsegv' Это в конференцию Lazarus. 0

Опции темы

Найти причину ошибки в игре

Решение