Einzelnen Beitrag anzeigen

Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#10

Re: SchleifenCode gibts sowas?

  Alt 1. Okt 2004, 18:56
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
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat