![]() |
Delphi-Version: 5
Kollisionsabfrage mit if funktoniert nicht
Hallo,
ich bin kurz davor mein Projekt zu beenden, allerdings fehlt mir noch das wichtigste und zwar die Kollisionsabfrage. Da mir die meisten Lösenungen im Internet nicht verständlich und lang waren habe ich diese versucht selbst wie folgt zu lösen:
Delphi-Quellcode:
Mario ist ein image, welches man mit den Richtungstasten Steuern kann und der Stern ist ein Image welches sich von alleine bewegt.
if (img_mario.left < img_stern.left) and (img_mario.Left > img_stern.left + img_stern.Width) then Punkte + 1;
if (img_mario.top < img_stern.top) and (img_mario.top > img_stern.Top + img_stern.Height) then Punkte + 1; Leider kommt bei mir der Fehler: Anweisung erforderlich, aber Ausdruck von Typ Integer gefunden Wie löse ich das am einfachsten? |
AW: Kollisionsabfrage mit if funktoniert nicht
Ersetz mal
Delphi-Quellcode:
durch
Punkte + 1;
Delphi-Quellcode:
Punkte := Punkte + 1;
|
AW: Kollisionsabfrage mit if funktoniert nicht
1)
Zitat:
2) Zitat:
Delphi-Quellcode:
oder
Punkte := Punkte + 1;
Delphi-Quellcode:
inc(Punkte);
|
AW: Kollisionsabfrage mit if funktoniert nicht
Ich würde für die Kollisionsabfrage mit
![]() Bernhard |
AW: Kollisionsabfrage mit if funktoniert nicht
Noch einfacher wäre es IMO mit IntersectRect.
|
AW: Kollisionsabfrage mit if funktoniert nicht
Zitat:
|
AW: Kollisionsabfrage mit if funktoniert nicht
|
AW: Kollisionsabfrage mit if funktoniert nicht
Und auch noch der gleiche Fehler. :roll:
|
AW: Kollisionsabfrage mit if funktoniert nicht
Zitat:
dann soll es immer einen Punkt geben wenn die andere Figur durch diese Seite läuft und dieser Bereich ist doch zwischen img_stern.left und im_stern.left + plus seiner eigenen Breite oder etwa nicht? |
AW: Kollisionsabfrage mit if funktoniert nicht
Zitat:
Da es sich um die gleiche Frage der gleichen Person handelt, mache ich aus Gründen der Übersichtlichkeit hier mal zu und verweise auf den bereits bestehenden Thread. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:58 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz