Hier:
Delphi-Quellcode:
if BallLinks then
x := -x;
if BallRechts then
x := -x;
Du musst es für beide Seiten wirklich einzeln betrachten.
Also für für die linke Seite verwende
x := Abs(x);
und für die rechte Seite
x := -Abs(x);
"Abs" ist der Absolutwert.
Das Problem ist nämlich, dass wahrscheinlich die Funktion "Balllinks" bzw. -rechts mehrere Male aufgerufen werden.
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg