Andorra 2D Bewegung von Figuren

[garfield.92]

Also, wenn ichs so umbaue bekomme ich die Fehlermeldung "Es ist eine Exception der Klasse EAccess Violation aufgetreten".

[Blup]

Das in GoRight und GoLeft kein neues Sprit erzeugt werden soll ist schon richtig.
Die Ursache für die Zugriffsverletzung ist an anderer Stelle zu suchen.
Vermutlich wird das Objekt nirgends erstellt oder ist bereits freigegeben.
Wenn du mit dem Debugger noch nicht klar kommst, häng am besten das ganzes Projekt an deinen Beitrag.

[garfield.92]

Hallo, hab hier mal den Projektordner angehängt.

[DeddyH]

Was mir auf den ersten Blick auffällt:

Zitat:

Delphi-Quellcode:

constructor Tcroco.Create(AParent: TSprite);
begin
  inherited;
  croco:=Tcroco.Create(nil); // <-- Hää??
  //Am Punkt (0;0) starten.
  X := 0;
  Y := 0;
  //XSpeed auf -150 setzten
  XSpeed := -150;
end;

Du erzeugst im Konstruktor der Klasse eine weitere Instanz? Was soll denn das werden?

[garfield.92]

ja, ich habs gemerkt, hatte da was ausprobiert, habs wieder dort raus gemacht und auch in der angehängten datei geändert, dort ist jetzt mein eigentliches problem drin.

[DeddyH]

Also, es knallt, wenn Du eine der Pfeiltasten drückst, richtig? Ich habe kein Andorra installiert, aber mir fällt erst einmal nichts Besonderes auf (von dem eben Genannten einmal abgesehen). Hast Du einmal einen Haltepunkt gesetzt und bist schrittweise bis zum Fehler durchgegangen?

[garfield.92]

also

Delphi-Quellcode:

procedure Tcroco.SetLine;
begin
  //Bewegt die Figur in eine neue Ebene
  XSpeed := -XSpeed;
  if XSpeed > 0 then
    begin
      AnimStart := 0;
      AnimStop := 7;
      X := -96;
    end
  else
    begin
      AnimStart := 8;
      AnimStop := 15;
      X := Engine.SurfaceRect.Right+96;
    end;
//hier
[B]  Y := Random(Engine.SurfaceRect.Right-790);[/B] 
end;

immer wenn er in die letzte Zeile kommt, stürzt das programm ab. Wenn ich diese Zeile ausklammere ist es die oben drüber und wenn ich diese auch ausklammere tut sich gar nix.