free erzeugt Fehler

[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;