Fehler beim freigeben dynamisch erzeugter TLabels

[hugo1990]

Ich habe ein Problem und zwar wenn ich folgende TLabels

Delphi-Quellcode:

Bilderupname:array of TLabel;

die ich so

Delphi-Quellcode:

SetLength(Bilderupname,Files.Count-2);
for i:=1 to Files.Count-2 do
  begin
  Bilderupname[i-1]:=TLabel.Create(Form1);
  Bilderupname[i-1].Caption:=IntToStr(i)+'.jpg';
  Bilderupname[i-1].AutoSize:=True;
  ...
  end;

erzeugt habe so

Delphi-Quellcode:

for i:=0 to high(Bilderupname) do
  begin
  Bilderupname[i].Free;
  end;

wieder freigeben möchte kommt die Fehlermeldung "Zugriffsverletzung bei Adresse ... in Modul '...'. Lesen von Adresse ...". Das kuriose ist, es geschieht nur beim freigeben des letzten TLabels und das ganze mache ich auch noch mit TImages, da tritt der Fehler nicht auf. Kann mir jemand Helfen?

[mkinzler]

Du verwendest beim Erzeugen auch andere Grenzen als beim Freigeben.
BTW Ersetzte Form1 besser durch Self

[dataspider]

Der sichere Weg:

Delphi-Quellcode:

for i := Low(Bilderupname) to high(Bilderupname) do 
  Bilderupname[i].Free;

Frank

[hugo1990]

Also die Grenzen kommen im Endeffekt wieder auf das selbe, daran liegt es nicht und auch mit Self statt Form1 geht es nicht.
Auch das mit dem low geht nicht, aber der fehler tritt ja auch nicht beim ersten sondern beim letzten auf, da der Fehler, wenn ich die obere Grenze auf high(Bilderupname)-1 setzte, nicht kommt. nur ist dann das letzte Label noch da.

Edit: Ok der Fehler muss wo anders liegen, den wenn ich die TLabels zuerst freigeben, dann tritt der Fehler bei den TImages auf.

[DeddyH]

Ich habe mir angewöhnt, das Freigeben immer in umgekehrter Reihenfolge zu erledigen, da ich sonst auch des Öfteren AV geerntet habe.

Delphi-Quellcode:

for i := high(Bilderupname) downto Low(Bilderupname) do
  Bilderupname[i].Free;

[Helmi]

dreh doch den ganzen Spass mal um:

Delphi-Quellcode:

for i := High(Bilderupname) downto Low(Bilderupname) do 
  Bilderupname[i].Free;

[DeddyH]

*Hehe* eine Minute schneller :mrgreen: :cheers:

[hugo1990]

umdrehen hat auch nichts gebracht.

[dataspider]

Du versuchst aber nicht, das Freigeben im Destructor oder so zu machen. Das kann nämlich auch schiefgehen.

Frank

[DeddyH]

Was ist eigentlich Files?