Ошибка при закрытии формы..динамический движек.

[Vervolf]

Всем доброго времени суток!я делаю свой первый динамический движек простенькой игрушки.на первой форме будет меню, на второй сама игрушка. так вот, при закрытии второй формы возникает в 2 из 5 случаях ошибка Access voilation at address 00000000. Read of address 00000000.
или
Project Project1.exe raised exception class EAccessViolation with message
'access violation at address 019F6E68.Read of address FFFFFFFF'. process stoped.
Use Step or Run to Continue.
вроде все объекты, созданные ранее я уничтожаю при закрытии.. не пойму в чем дело..! и при том, ошибка возникает только тогда, когда форма закрывается программно(то есть, когда жизни кончаются, меня убивают, форма закрывается), а когда просто закрываю, ошибки нет.. вот исходник, посмотрите пожалуйста что же тут у меня не так..

[asmodey1]

Код даже не смотрел.
Не вижу никакой ошибки выполнения...
Запускаю, ничего не трогаю, через некоторое время появляется мессадж "Конец игры!Вы набрали 0 очков."
Жму ОК, форма закрывается и опять видна главная...
Пробовал двигать мышкой - "Конец игры!Вы набрали 100 очков." и все нормально.

[mss]

> что же тут у меня не так

Всё.
Начиная с безобразного форматирования кода.
Говнокод никогда работать как задумывалось не будет.

[Vervolf]

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

Код даже не смотрел.
Не вижу никакой ошибки выполнения...
Запускаю, ничего не трогаю, через некоторое время появляется мессадж "Конец игры!Вы набрали 0 очков."
Жму ОК, форма закрывается и опять видна главная...
Пробовал двигать мышкой - "Конец игры!Вы набрали 100 очков." и все нормально.

так нажми на бутон первый.

[asmodey1]

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

Начиная с безобразного форматирования кода

Ну, форматирование не влияет.
А вот конструкции вроде AND ... OR ... AND надо бы более внятно писать, то есть, например :

if ((bk.Left>img.Left)
and(bk.Left<img.Left+img.Width)
and(bk.Top>img.Top)
and(bk.Top<img.Top+img.Height))
or ((bk.Left+bk.Width-Round(bk.Width/2)>img.Left)
and (bk.Left<img.Left+img.Width)
and(bk.Top+bk.Height-Round(bk.Height/2)>img.Top)
and(bk.Top<img.Top+img.Height))
 then

Хотя... может быть у вас не такая логика заложена...

[Vervolf]

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

> что же тут у меня не так

Всё.
Начиная с безобразного форматирования кода.
Говнокод никогда работать как задумывалось не будет.

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

[_Engine_]

1. Замени Destroy на FreeAndNil
2. Проверяй везде, при обращении к своим объектам на assigned.

Я это сделал за тебя и ошибки не стало. А вообще, все ошибки легко нашлись отладчиком.

P.S. Код ужасен

[Vervolf]

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

1. Замени Destroy на FreeAndNil
2. Проверяй везде, при обращении к своим объектам на assigned.

Я это сделал за тебя и ошибки не стало. А вообще, все ошибки легко нашлись отладчиком.

P.S. Код ужасен

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

[_Engine_]

На слегка поправленный, без твоей ошибки. Компилил в D2010, так что, бери только pas файлы

удалил файл

[Vervolf]

Спасибо, но ошибка все равно вылетает..