Varibleninhalt wird gelöscht

[Denny]

Danke, ich habe den Fehler gefunden. Ich weise Richtung 0 oder 1 zu. Dann prüfe ich, ob es 0 ist. Es ist ja logisch, dass er dann irgendwann mal den Wert 0 annimmt. Jetzt ist der Startwert 3. Den kann er durch das Erzeugen nie bekommen. Jetzt funzt es:

Delphi-Quellcode:

if Richtung = 3 then
  begin
    Richtung := Random(2);
    RWeite := Random(5);
  end;

Diese kleinen Fehlerchen immer! DANKE!

[Sharky]

Zitat von Denny:

.... Der Ball fliegt jedoch immernoch Kurven, weil im ständig neue Werte übermittelt Werten. ...

Hai Denny,

überlege einmal was passiert wenn TForm1.tmrBall2Timer aufgerufen wird und Richtung den Wert 1 hat.

Delphi-Quellcode:

procedure TForm1.tmrBall2Timer(Sender: TObject);
begin
 // Randomize;
  if Richtung = 0 then // Wird bei Richtung = 1 nie aufgerufen
  begin
    Richtung := Random(2);
    RWeite := Random(5);
  end;

  Ball.Top := Ball.Top - Tempo; // Der Ball fällt immer um "Tempo" Pixel nach unten

  if Richtung = 0 then 
    ball.Left := ball.Left - Rweite
  else
    ball.Left := ball.Left + Rweite; // Der Ball wird um Rweite Pixel nach rechts bewegt
end;

Du hast also eine gleichzeitige Bewegung nach unten und nach rechts. Und das ist dann halt eine Kurve.

[Denny]

Jo, danke! Das habe ich dann auch bemerkt. Diese blöden, einfachen Fehler.