Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: SchleifenCode gibts sowas?

    Delphi
    by alcaeus, 7. Okt 2004
  Hi Wargrave,
  
  mach für die neue Frage bitte einen neuen Thread auf.
  
  Greetz
  alcaeus
• Forum: Object-Pascal / Delphi-Language

  Re: SchleifenCode gibts sowas?

    Delphi
    by alcaeus, 1. Okt 2004
  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:
  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
• Forum: Object-Pascal / Delphi-Language

  Re: SchleifenCode gibts sowas?

    Delphi
    by alcaeus, 1. Okt 2004
  Hi WarGrave,
  
  procedure TForm1.TimerTimer(Sender: TObject);
  begin
  if (Timer.enabled=true)
  
  then begin
  Wolke.Left:=Wolke.Left+10;
  end
  end;
• Forum: Object-Pascal / Delphi-Language

  Re: Brauche Programmier-Code!

    Delphi
    by alcaeus, 1. Okt 2004
  Hi WarGrave,
  
  nimm Florian mal nicht so ernst ;)
  Zeig mal bitte den Code, wie du die Wolke verschiebst. Normalerweise gehts so
  if DeineVariableFuerDiePosition > 1024 then //oder was auch immer der rechte Rand ist
  DeineVariableFuerDiePosition := 0;
  Allerdings wäre ein bisschen Code nicht ganz schlecht, da wir ja nicht wissen können welche Komponenten du verwendest.
  
  Greetz
  alcaeus