Forum: Object-Pascal / Delphi-Language
by Blup,
17. Dez 2010
Dieser Vergleich hat noch nicht gestimmt:
If (derBall.XKoordinate <= (Schlaeger1.XKoordinate + Schlaeger1.Breite))
and (derBall.YKoordinate >= Schlaeger1.YKoordinate)
and (derBall.YKoordinate <= (Schlaeger1.YKoordinate+Schlaeger1.Laenge)) then
Forum: Object-Pascal / Delphi-Language
by Blup,
16. Dez 2010
Du kannst natürlich auch dx und dy als einzelne Member/Property deklarieren.
Aber so ist es übersichtlicher, z.B. so:
type
TGeschwindigeit: record
dx, dy: Double;
end;
derBall = class({z.B. TObject})
private
Forum: Object-Pascal / Delphi-Language
by Blup,
15. Dez 2010
Es arbeitet sich wesentlich besser mit einem Geschwindigkeitsvektor als mit dem Winkel
(Geschwindigkeit in x- und y-Richtung in zwei verschiedenen Variablen).
TGeschwindigeit: record
dx, dy: Double;
end;
procedure derBall.Bandenkollision;
begin
Geschwindigkeit.dy := -Geschwindigkeit.dy;