SchleifenCode gibts sowas?

[alcaeus]

Hi Wargrave,

nein, das begin muss nur hin, falls du mehr als eine Anweisung bedingt (also mit dem if) ausführen willst.

Hier der Code des OnTimers:

Delphi-Quellcode:

procedure TForm1.TimerTimer(Sender: TObject);
begin
  Wolke.Left:=Wolke.Left+10; //nach rechts verschieben
  if Wolke.Left > 680 then //ist die Wolke ganz rechts?
    Wolke.Left := 0; //wenn ja, dann kommt sie wieder ganz nach links
end;

Greetz
alcaeus