|
#1
|
|||
|
|||
Помогите с кодом.
Не запускается, выскакивает ошибка. Принцип в том,что они должны image1(Mario) и монетки столкнуться, после этого добавляется счёт.
Код:
// moneta_rect:=a2[j]; image1_rect:=image1.BoundsRect; moneta_rect:=a2[j].BoundsRect; Res:=IntersectRect(R,image1_rect,moneta_rect); //R := IntersectRect( R,image1_rect, moneta_rect); for j:=1 to 20 do if (a3[j]>0) and Res then begin a2[j].Visible:=(false); //a2[j].Destroy; s:=s+1; Label1.Caption:='Счёт:'+IntToStr(s); |