Бесконечные очки

@MursikSix · Регистрация: 03.10.2016

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

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

Delphi

if (a3[j]>0) and (image1.left+Image1.Width>a2[j].left) and (image1.Top+Image1.Width>a2[j].top) then //a2(монетки) //image1(главный герой)
   begin
    a2[j].Visible:=(false);
    //a2[j].Destroy;
    s:=s+1;
   Label1.Caption:='Счёт:'+IntToStr(s);

@krapotkin · 06.06.2017, 15:25

по опыту к Top обычно прибавляют Height

а еще предполагается что для ответа требуется вопрос

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

@MursikSix · 06.06.2017, 15:40 **[ТС]**

Проблема осталась //Объясняю a3[j]>0 это монетки,которые созданы с помощью текстового документа, то есть там 1 и 2 это монетки в разных координатах, a2[j] это есть монетка.

@Пытливый · 06.06.2017, 15:54

У вас нет размеров монетки. По сути она у вас безразмерная, начинается в координатах a2[j].left и a2[j].top и как только герой ее прошел он из нее не вылазит

Добавлено через 1 минуту
Сравнивать надо пересечение двух областей героя и монетки, для этого есть готовая функция IntersectRect

@MursikSix · 06.06.2017, 15:59 **[ТС]**

Пытливый, Впервые слышу о такой функции,есть какой-нибудь пример?

@krapotkin · 06.06.2017, 16:00

магия
гугл delphi intersectrect Пример

@MursikSix · 06.06.2017, 16:04 **[ТС]**

krapotkin, Хм, похожего случая на мой не нашёл

@krapotkin · 06.06.2017, 16:10

все случаи пересечения прямоугольников идентичны
у вас монета это один прямоугольник, image - второй прямоугольник
и вы определяете, пересекаются они или нет
какой еще идентичности вы искали? слово монетка?

@Пытливый · 06.06.2017, 16:19

Delphi

Var
  Hero,Obj,R: TRect;
begin
 Hero := Rect(1,1,10,10);
 Obj := Rect(5,5,6,6);
 if IntersectRect(R, Hero, Obj)
 then ShowMessage('Входит')
 else ShowMessage('Выходит')
end;

@MursikSix · 06.06.2017, 16:43 **[ТС]**

В чём проблема? Не запускается

Delphi

1
2
3

image1_rect:=image1.BoundsRect;
moneta_rect:=a2[j].BoundsRect;
 Res := IntersectRect( image1_rect, moneta_rect);

Добавлено через 1 минуту
Пытливый,

Добавлено через 7 минут
В чём проблема? Не запускается

Delphi

1
2
3

image1_rect:=image1.BoundsRect;
moneta_rect:=a2[j].BoundsRect;
 Res := IntersectRect( image1_rect, moneta_rect);

Добавлено через 1 минуту
krapotkin, В чём проблема? Не запускается

Delphi

1
2
3

image1_rect:=image1.BoundsRect;
moneta_rect:=a2[j].BoundsRect;
 Res := IntersectRect( image1_rect, moneta_rect);

@Пытливый · 06.06.2017, 17:06

Вы считать до 3 умеете? Сколько параметров у меня в примере и сколько у вас?

@MursikSix · 06.06.2017, 17:17 **[ТС]**

Теперь стала запускаться, но выдаёт ошибку.

Delphi

    image1_rect:=image1.BoundsRect;
     moneta_rect:=a2[j].BoundsRect;
     Res := IntersectRect( R,image1_rect, moneta_rect);
 
 
     for j:=1 to 20 do
   if (a3[j]>0) and intersectrect(R,image1_rect, moneta_rect)  then
   begin

Добавлено через 22 секунды
Пытливый,

@Пытливый · 06.06.2017, 17:21

Видимо какую ошибку мы должны догадаться сами? Зачем вы в двух местах делаете проверку и вообще зачем вам:

Delphi

1	Res := IntersectRect( R,image1_rect, moneta_rect);

@MursikSix · 06.06.2017, 18:09 **[ТС]**

Пытливый, Вот

@Пытливый · 06.06.2017, 18:49

Думаю что эта ошибка не имеет никакого отношения к функции IntersectRect, а вот обращение к не инициализированной переменной a3[j] вполне могло. Воспользуйтесь отладчиком и посмотрите, что конкретно вызывает эту ошибку.

@Пытливый 3759 / 2263 / 705 Регистрация: 29.05.2013 Сообщений: 9,613
	06.06.2017, 17:06	11
	Вы считать до 3 умеете? Сколько параметров у меня в примере и сколько у вас? 0

@MursikSix 0 / 0 / 0 Регистрация: 03.10.2016 Сообщений: 47
	06.06.2017, 18:09 [ТС]	14
	Пытливый, Вот Миниатюры 0

@krapotkin 5860 / 4588 / 1448 Регистрация: 14.04.2014 Сообщений: 20,352 Записей в блоге: 20
	06.06.2017, 15:25	2
	по опыту к Top обычно прибавляют Height а еще предполагается что для ответа требуется вопрос и так же по опыту через пару недель не только мы но и вы сами не будете понимать ничего в программе с такими названиями переменных 0

@MursikSix 0 / 0 / 0 Регистрация: 03.10.2016 Сообщений: 47
	06.06.2017, 15:40 [ТС]	3
	Проблема осталась //Объясняю a3[j]>0 это монетки,которые созданы с помощью текстового документа, то есть там 1 и 2 это монетки в разных координатах, a2[j] это есть монетка. 0

@Пытливый 3759 / 2263 / 705 Регистрация: 29.05.2013 Сообщений: 9,613
	06.06.2017, 15:54	4
	У вас нет размеров монетки. По сути она у вас безразмерная, начинается в координатах a2[j].left и a2[j].top и как только герой ее прошел он из нее не вылазит Добавлено через 1 минуту Сравнивать надо пересечение двух областей героя и монетки, для этого есть готовая функция IntersectRect 0

@MursikSix 0 / 0 / 0 Регистрация: 03.10.2016 Сообщений: 47
	06.06.2017, 15:59 [ТС]	5
	Пытливый, Впервые слышу о такой функции,есть какой-нибудь пример? 0

@krapotkin 5860 / 4588 / 1448 Регистрация: 14.04.2014 Сообщений: 20,352 Записей в блоге: 20
	06.06.2017, 16:00	6
	магия гугл delphi intersectrect Пример 0

@MursikSix 0 / 0 / 0 Регистрация: 03.10.2016 Сообщений: 47
	06.06.2017, 16:04 [ТС]	7
	krapotkin, Хм, похожего случая на мой не нашёл 0

@krapotkin 5860 / 4588 / 1448 Регистрация: 14.04.2014 Сообщений: 20,352 Записей в блоге: 20
	06.06.2017, 16:10	8
	все случаи пересечения прямоугольников идентичны у вас монета это один прямоугольник, image - второй прямоугольник и вы определяете, пересекаются они или нет какой еще идентичности вы искали? слово монетка? 0

@Пытливый 3759 / 2263 / 705 Регистрация: 29.05.2013 Сообщений: 9,613
	06.06.2017, 18:49	15
	Думаю что эта ошибка не имеет никакого отношения к функции IntersectRect, а вот обращение к не инициализированной переменной a3[j] вполне могло. Воспользуйтесь отладчиком и посмотрите, что конкретно вызывает эту ошибку. 0