Ich bin mir nicht sicher, hab grad keine
IDE zum testen da, aber das da sieht für mich aus wie Durchfall:
Delphi-Quellcode:
procedure TBrick.onCollision(Edge : Integer; Ball : TBall);
begin
case Edge of
1: Ball.YSpeed := Ball.YSpeed * (-1);
2: Ball.YSpeed := Ball.YSpeed * (-1);
3: Ball.XSpeed := Ball.XSpeed * (-1);
4: Ball.XSpeed := Ball.XSpeed * (-1);
end;
end;
Also in Java zumindest wird ohne ein
break zwischendrin 1: und 2: (und 3: und 4: ) ausgeführt, was dann zur Folge hätte, dass es wieder das selbe Ergebnis wie davor ist.
Oder gabs das in Delphi garnicht?