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:

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. :)