Проверка

[Манжосов Денис :)]

private
 procedure Proverka;
 Array1: array of TPoint;
 i, n: integer;
....
procedure TForm1.Proverka;
begin
 for i:=0 to High(Array1) do
  begin
   if ...
  end;
end;

Там где if у меня проблема. Есть изображение Image1. И надо проверить если Image1 в какой либо точке пересекается с XY массива Array1. Как сделать эту проверку?

[puporev]

Точка из массива попадает на Image1, если
(a[i].x>=Image1.Left)and(a[i].x<=Image1.Left+Image1.Width)
and(a[i].y>=Image1.Top)and(a[i].y<=Image1.Top+Image1.Height))

[Манжосов Денис :)]

Блин, блин, блин, точно, мы же как раз сейчас в школе неравенства проходим, я мог бы и вспомнить это, спасибо puporev большое!!!!

[Манжосов Денис :)]

procedure TGameForm.TimerUpDownTimer(Sender: TObject);
begin
 Proverka; 
end;

procedure TGameForm.Proverka();
var
 n1: integer;
begin
   for n1:=0 to High(g1Array)-1 do
     if (g1Array[n1].Y>=im_Player.Top) and (g1Array[n1].Y<=im_Player.Top + im_Player.Height) then
      begin
        im_Player.Top:=im_Player.Top;
        exit;
      end;
   im_Player.Top:=im_Player.Top+2;
end;

Код почему-то не работает, если знает кто в чём проблема - скажите пожалуйста.

[puporev]

if (g1Array[n1].Y>=im_Player.Top) and (g1Array[n1].Y<=im_Player.Top + im_Player.Height) then

А почему проверка только по вертикали? Или так задумано?
Еще вот здесь

end;
im_Player.Top:=im_Player.Top+2;

нужно
end
else im_Player.Top:=im_Player.Top+2;