Hi Yheeky,
Delphi-Quellcode:
[b]While (t < 100) and (koor_y > 100) do[/b]
begin
koor_x := speed * cos(winkel / 180 * Pi ) * t+100;
koor_y := -(speed * sin(winkel / 180 * Pi ) * t - 0.5 * erdanziehung * t * t)+100;
Canvas.LineTo(Round(koor_x),Round(koor_y));
t:=t+0.1;
end;
So sollte deine Schleife aufhören, wenn sich koor_y unter dem Wert 100 befindet.
PS: Wieso klappt das mit dem Bold nich ???????
devnull
[EDIT]PS[/EDIT]