Hallo,

ich hab eine Komponentenliste vom Typ TComponentList in der ich zur Laufzeit
erzeugte Komponenten als auch schon zur Designzeit erzeugte Komponenten
eintrage.

Am Ende des Programmes bei OnDestroy der Form will ich alle zur Laufzeit erstellten
Komponenten löschen.

Dafür hab ich folgenden Code:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMaskForm.FormDestroy(Sender: TObject);
var
  i: Integer;
  Dummy_Kompo: TComponent;

begin
  for i := Pred(Komponentenliste.Count) downto 0 do
    begin
      //Komponente auslesen
      Dummy_Kompo := Komponentenliste.Items[i];

      If Assigned(Dummy_Kompo) then
        FreeAndNil(Dummy_Kompo);
    end;

  FreeAndNil(Komponentenliste);
end;

Mit dem Assigned will ich alle Komponenten die beim Design erstellt wurden,
aussieben.
Aber leider bekomm ich immer eine AccessViolation - ich weiss nur nicht warum?

Warum willst du nur manuell erzeugte Löschen?

Zitat von mkinzler:

Warum willst du nur manuell erzeugte Löschen?

Genau andersrum - ich will alle zur Laufzeit erzeugte löschen

Wäre es nicht das einfachste die zur Laufzeit erzeugten in eine Extra Liste zu packen?
So wie du es vor hast geht es nicht. Assigned ist nichts anderes als auf eine Prüfung auf ungleich nil. Wenn eine Komponente frei gegeben wird, wird aber nicht automatisch dein Pointer auf die Instanz auf nil gesetzt sondern zeigt weiterhin auf den Speicher. Entsprechend funktioniert die Prüfung nicht.

Zitat von Helmi:

Zitat von mkinzler:

Warum willst du nur manuell erzeugte Löschen?

Genau andersrum - ich will alle zur Laufzeit erzeugte löschen

Die Frage von mkinzler ist berechtigt. Alle Komponenten, die irgendwie im Fenster liegen und das Fenster selbst als Owner besitzen (Eigenschaft der Komponente), werden beim Zerstören des Fensters gleich mit freigegeben. Ein manuelles FreeAndNil erübrigt sich somit eigentlich ganz von selbst.

Zitat von Jelly:

Die Frage von mkinzler ist berechtigt. Alle Komponenten, die irgendwie im Fenster liegen und das Fenster selbst als Owner besitzen (Eigenschaft der Komponente), werden beim Zerstören des Fensters gleich mit freigegeben. Ein manuelles FreeAndNil erübrigt sich somit eigentlich ganz von selbst.

mmmh - irgendwie hast du recht
ich hab ja alle Kompos auf einem Panel

Zudem sind zur Laufzeit erzeugte manuell erzeugte Komponenten

Eine Frage hätt ich aber noch dazu:

ich erzeug die Kompoentenliste im OnCreate der Form mit:

markieren

Delphi-Quellcode:

  //Komponentenliste erzeugen
  Komponentenliste := TComponentlist.Create;

im OnDestroy gib ich sie wieder frei:
FreeAndNil(Komponentenliste) Nur bekomm ich dabei eine AV.

Ich hab mal gelernt, mann müsse alles was man erzeugt auch wieder
freigeben, das tu ich ja, aber trotzdem die AV?

Wenn du manuell freigeben willst, mussst du alle freigeben und vorher aus der Liste nehmen

Eine TComponentList gibt alle enthaltenen Objekte mit frei, wenn du die Liste selbst freigibst... Machs dir doch nicht so kompliziert. (siehe dazu auch Doku zu Delphi)