Also, mal ganz langsam zum mitschreiben: Du hast eine REPEAT-Schleife, die erst beendet wird, wenn die Variable
rschliessen, die du im FormCreate auf FALSE setzt, TRUE geworden ist. Kannst du mir erklären, wo innerhalb deiner Schleife diese Variable den Wert TRUE erhalten soll?
Delphi-Quellcode:
repeat
case rRichtung of
1: begin // rRichtung := 1
rpunkt.Y:= rpunkt.Y +3;
if rpunkt.Y > rhoehe-33 then rRichtung := 2;
Sleep(25);
end;
2: begin // rRichtung := 2
rpunkt.Y:= rpunkt.Y -3;
if rpunkt.Y < 0 then rRichtung := 1;
Sleep(25);
end;
end; // case rRichtung of
Application.ProcessMessages;
until rschliessen = true; // wo wird rschließen TRUE???
end;
Eine Endlos-Schleife ist eine Schleife, deren Endbedingung niemals eintritt.