Problem gelöst. neues Problem erstanden.
Code:
case rRichtung of
1:
begin
rpunkt.X:= rpunkt.X +3;
[B]if rpunkt.Y > form1.Width-33 then rRichtung := 2;[/B]
form1.Label1.Caption := inttostr(rRichtung);
// Sleep(25);
end;
2: begin
rpunkt.X:= rpunkt.X -3;
if rpunkt.X < 0 then rRichtung := 1;
// Sleep(25);
end;
end;
end;
end;
Was ist an diesem Code falsch? Warum tut er nicht das was er soll.(bezieht sich nur auf das dicke) Normalerweise sollte doch die Richtung auf 2 umschalten sobald rpunkt.y größer als form1.width-33 ist warum tut es das nicht ?