Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Snake Steuerung

    Delphi
    by cruiser, 25. Mär 2009
  Mal der Auszug aus deinem Code + ein Kommentar:
  if Direction = sUp then
  schlange.Y:= schlange.Y - 1
  else if Direction = sDown then
  schlange.Y:= schlange.Y + 1
  else if Direction = sLeft then
  schlange.X:= schlange.X - 1
  else if Direction = sRight then
  schlange.X:= schlange.X + 1
  // ▼ da ist der Fehler
• Forum: Multimedia

  Re: Snake Steuerung

    Delphi
    by cruiser, 25. Mär 2009
  Hmm... dumm, dass meine kompletten Delphiprojekte bei einem Crash mal vernichtet wurden... Backup hätte geholfen... ich glaube es war GetAsynchKeyState mit dem ich direkt im Timer die Tasten abgefragt hatte...
• Forum: Multimedia

  Re: Snake Steuerung

    Delphi
    by cruiser, 25. Mär 2009
  Wo genau liegt dein Problem? Ich hab mir den Code zwar angesehn aber auf den ersten Blick nichts falsches gefunden. Hast du KeyPreview der form auf true?
  
  PS: Die Verwaltung deiner Schlange ist durch das umkopieren im Array relativ langsam. Ich habe damals deshalb dann auf eine doppelt verlinkte Liste gewechselt.