Hi,

ich programmiere im Moment mein 1. 2D Game mit DelphiX. Die Frage bezieht sich aber eher aufs Allgemeine, deshalb "Sonstige Fragen" und nicht "Multimedia".

zusammenfalten · markieren

Delphi-Quellcode:

type
  THolz = class(TImageSprite)
    Public
      Constructor Create(aparent:Tsprite); override;
    end;

var
  Holz: Array[1..1] of THolz;

...

//Level wir erstellt und auch 1x Holz:

  Holz[1] := THolz.Create(Sprite.Engine);
  Holz[1].X := J * 31 + Round((31 - Holz[1].Width) / 2);
  Holz[1].Y := I * 31 + Round((31 - Holz[1].Height) / 2);
  Holz[1].Z := 1;

Jetzt kommt die ganz gewöhnliche Kollisionsabfrage:

procedure TSpieler.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
  //Kollision abfragen
  If (Sprite is TWand) then Kollision := True;
  If (Sprite is TPlatzhalter) then Kollision := True;
  If (Sprite is TZiel) then Ende := True;
  If (Sprite is THolz) and then
    begin
      Kollision := True;
      If Assigned(Holz[1]) then FreeAndNil(Holz[1]); //Hier kommt die Fehlermeldung (s. Screenshot)
      frmMain.Player.FileName := 'Forest.wav';
      frmMain.Player.Open;
      frmMain.Player.Play;
    end;
end;

Woran kann das liegen? Falls mehr Code benötigt wird, einfach nur sagen.

Chrissi91

Versuch mal

markieren

Delphi-Quellcode:

If Assigned(Holz[1]) then
begin
  aHolz := Holz[1];
  FreeAndNil( aHolz);
end;

Gleicher Fehler.

Aber Sachen wie

Showmessage(IntToStr(Holz[1].Width)); gehen.

Kommt der Fehler vielleicht schon beim Assigned?

Das Komische er mach Folgendes:

zusammenfalten · markieren

Delphi-Quellcode:

  If (Sprite is THolz) and Assigned(Holz[1]) then
    begin
      Kollision := True;
      //If Assigned(Holz[1]) then FreeAndNil(Holz[1]);

      If Assigned(Holz[1]) then
        begin
          aHolz := Holz[1];
          FreeAndNil(aHolz);
        end;

      frmMain.Player.FileName := 'Forest.wav';
      frmMain.Player.Open;
      frmMain.Player.Play;
    end;

Er geht alles durch, spielt auch den sound ab, und beim End gibts dann den Fehler. Nehm ich FreeAndNil raus, klappt es prima. Am sound liegts also nicht.

So kommt kein Fehler:

zusammenfalten · markieren

Delphi-Quellcode:

  If (Sprite is THolz) and Assigned(Holz[1]) then
    begin
      Kollision := True;
      //If Assigned(Holz[1]) then FreeAndNil(Holz[1]);

      If Assigned(Holz[1]) then
        begin
          //aHolz := Holz[1];
          //FreeAndNil(aHolz);
        end;

      frmMain.Player.FileName := 'Forest.wav';
      frmMain.Player.Open;
      frmMain.Player.Play;
    end;

Also am Assigned liegts nicht.

Wird vielleicht nach dem Zerstören noch darauf zugegriffen?

Ich wuerde mal ob die offensichtlich verknuepfte Sprite.Engine nicht versucht auf das bereits erlegte Objekt zuzugreifen. FreeAndNil setzt erst Holz[1] auf nil und gibt erst dann das Objekt frei. Greift Sprite.Engine nun auf Holz[1] zu, so ist dort schon nil enthalten, aber das Objekt hat noch nicht den Destruktor aufgerufen.
Das 66 deutet auf den Aufruf einer virtuellen Methode.

Anscheinend liegt es daran:

Ich habs einfach anders gemacht: Kollision wird nur 1x abgefragt, danach nie wieder und aus dem THolz habe ich einfach nen andderes Bild rübergemacht

Da muß ich Robert recht geben. FreeAndNil ist völlig irreführend. Die Funktion sollte NilAndFree heissen, denn es wird tatsächlich die übergebene Instanz zurückgesichert, dann der Parameter Nil gesetzt und erst dann die Instanz freigegeben. Versuch doch mal:

markieren

Delphi-Quellcode:

  aHolz.Free;
  aHolz:=Nil;

Stimmt. Aber warum ist dem nicht so? Borland ist doch auch nicht dumm? Warum ändern die das in der nächsten Version nicht? Oder heißt es FreeAndNil und macht eigentlich NilAndFree?