Spinnt Delphi oder ich

[Sanchez]

Teil der FormDestroy meines Forms

Delphi-Quellcode:

  for i:= 0 to Labelcount - 1 do begin
    arrLabels[i].Free;
  end;
  arrLabels     := nil;

arrLabels ist ein dynamisches Array vom Typ TLabel

Heute Vormittag -- alles normal, keine Exceptions

Vor kurzem -- ca. beim 27. Free gibts eine EInvalidPointer
Daraufhin habe ich die Free-Zeile auskommentiert. Jetzt bekomme ich keinen Fehler.

Neustart des Systems, ich hab natürlich gespeichert

EInvalidPointer beim Beenden des Programmes.
Jetzt hab ich die Kommentarzeichen wieder weggelöscht und ich bekomme keine Exception mehr.

Irgendwie bin ich etwas verwirrt, steckt da ein System dahinter?
Ist es möglich, dass ich irgendwo einen ganz anderen Fehler habe, der das auslöst?

mfg Daniel

[Christian Seehase]

Moin Daniel,

wie erzeugst Du denn die Label?
Wenn Du beim Create als Owner eine übergeordnete Komponente angegeben hast (z.B. das Formular), und nicht nil, werden die Label automatisch zerstört.

[Marco Haffner]

Klappt das hier?

Delphi-Quellcode:

for i := (Labelcount - 1) downto 0 do
begin
  arrLabels[i].Free;
end;
arrLabels := nil;

[Sanchez]

Also muss ich Objekte, die ich so

arrLabel[i] := TLabel.Create( self ); erzeuge gar nicht entsorgen?

Auch fein.

mfg Daniel

[Touchdown]

Nein im Grunde brauchst du die nicht mehr freigeben.

Als Owner gibts du ja 'self' an, 'self' meint hier das Formular in dem du die Instanzen erzeugst

Wird das Formular zerstört (spätestens beim Beenden des Programms) werden auch alle Objekte die dies Formular als Owner haben mit aus dem Speicher gehauen