Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

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

Код я написал, программа работает. Но есть проблема: после победы, когда создается новая игра, некоторые изображения не прорисовываются. Прицепляю к ответу исходники, поглядите плз в чем тут дело? Ошибка в коде (приложение к вопросу).

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Вопрос задал: IlluminatI (статус: 2-ой класс) Вопрос отправлен: 21 октября 2009, 23:02 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, IlluminatI!
Логично конечно.
строка раз
lastImg:=(Sender as TImage);
и строка два
lastImg.Free;

В первой строке объект не копируется, а просто копируется ссылка, то есть всего 4 байта. В результате в следующей строкой объект удаляется. Отсюдова - если объект удален, то восстановить его не удастся. Это очень распространенная ошибка. А вот зачем объект удаляете - я не знаю...

Если не вериться - можно выводить кол-во компонентов. например, такой
caption := inttostr(ComponentCount);
в конец каждой строки. В нормально работающей программе число не должно меняться.

Как вылечить программу минимальным усилием? думаю просто надо убрать строку
lastImg.Free;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 22 октября 2009, 00:25 Оценка за ответ: 5 Комментарий к оценке: спасибо, помогло :)

Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.