free erzeugt Fehler

[fui-tak]

Hallo zusammen,
ich habe da ein Problem mit der free Methode:

Delphi-Quellcode:

...
levels[3] := levels[1];
...



destructor TSpielverwalter.Destroy;
var i: integer;
begin

  for i := 0 to high(levels) do
     levels[i].free;


  inherited;
end;

Wenn die Schleife jetzt bei 3 ankommt, gibt's einen Fehler, nämlich "Erste Gelegenheit für Exception bei $758EB727. Exception-Klasse EInvalidPointer mit Meldung 'Ungültige Zeigeroperation'. Prozess SpielOGLProject1.exe (972)"


Das ganze passiert, weil der Speicherplatz schon bei levels[1] feigegeben wird; das habe ich verstanden, nur habe ich keine Idee, wie ich das Problem ordentlich umgehen könnte

[mkinzler]

Beim Löschen immer von Hinten, denn mit jedem Löschen, wird die Anzahl der Elemente ja kleiner

Delphi-Quellcode:

for i :=  high(levels) to low(level) do
     levels[i].free;

[Björn Ole]

Er löscht ja nicht, er gibt ja nur frei.

Versuchs mal mit FreeAndNil(levels[i]) und prüfe davor auf Assigned(levels[i]).

[daywalker9]

Free prüft auch ob die Klasse <> NIL ist

[Björn Ole]

Ja, Free setzt aber nichts auf nil.

Mir ist aber gerade aufgefallen, dass das gar nichts mit dem Problem zu tun hat.

[daywalker9]

Ging ja auch nur um das assigned()..

[fui-tak]

Eure Vorschläge funktionieren alle leider nicht:

Erster Versuch:

Delphi-Quellcode:

for i := 0 to high(levels) do
  if Assigned(levels[i]) then
     FreeAndNil(levels[i]);

Dieser Code gibt zwar keinen Fehler aus, aber die Schleife wird auch nur einmal durchgegangen

Delphi-Quellcode:

for i := high(levels) to  low(levels) do
  levels[i].free;

Hier gibt's dann wieder einen Fehler

Delphi-Quellcode:

for i := high(levels) downto  low(levels) do
  levels[i].free;

[daywalker9]

Ansonsten bastel dir eine Assign Methode, um alle Eigenschaften in das Level zu kopieren. Dann kannst du diese Klassen so freigeben. Beispiel:

Delphi-Quellcode:

level[0]:=TLevel.create;
level[0].Assign(level[1]);


procedure TLevel.Assign(ASOurce:TPersistent);
begin if (ASource is TLevel) then
         Self.Name := (ASOurce as TLevel).Name; //für alle attribute machen
      else 
         inherited Assign(ASOurce);
end;

Du musst dann TLevel von TPersistent ableiten

[xZise]

Moin,
naja der Fehler ist ja klar: Es wird vorher schon bereits ein weiter hinten liegendes Element gelöscht. Da hilft dann FreeAndNil() auch wenig, da nicht der hinten liegende Zeiger genilt wird (oder liege ich da falsch).

Deshalb würde ich in diesem Fall echt assign verwenden!

MfG
Fabian