TObjectList: AV wenn OwnsObject := True

[sirius]

Zitat von sakura:

oder der Liste verbieten die Objekte auch freizugeben (OwnsObjects := False.

dann aber mit update aufpassen...

[Luckie]

Gar nichts. Den habe ich nicht überschrieben, das ist noch der original Destruktor von der Komponente. Allerdings liegen auf der Komponete noch andere Objekte, die zu der Komponente gehören, wie Layer usw. Allerdings bekomme ich auch eine AV, wenn sich dort keine weiteren Objekte befinden.

Also vom Parent entferne ich sie nicht. Aber das hatte auch keine Probleme als ich noch mit TList gearbeitet habe und im Destruktor die Objekte von Hand mit Free freigegeben habe.

@sakura: Wie gesagt, die TImageEnVect Komponenten, die ich dynamisch erstelle liegen nur in meinem eigenen Container von Typ TObjectList. Sie haben zwar das Formular als Parent aber das sollte ja eigentlich nicht stören. Und wenn ich OwnsObjects auf False setze, dann muss ich mich ja wieder selber um das Freigeben kümmern, was ich ja eigentlich vermeiden wollte.

PS: @sakura: Hast du mit diesen Komponenten schon eigene Erfahrungen gemacht? Ich hätte da nämlich noch das ein oder andere Problem. Und die Newsgroup war bisher noch nicht sehr hilfreich.

[Hawkeye219]

Hallo Michael,

Zitat:

@sakura: Wie gesagt, die TImageEnVect Komponenten, die ich dynamisch erstelle liegen nur in meinem eigenen Container von Typ TObjectList. Sie haben zwar das Formular als Parent aber das sollte ja eigentlich nicht stören.

Sakuras Hinweis noch einmal mit anderen Worten: ein TWinControl gibt im Destruktor alle in ihm liegenden Controls frei! Du kannst das von dir beobachtete Verhalten leicht mit der TImage-Komponente von Borland nachstellen. Ohne Lösen vom Parent knallt es, mit Lösen gibt es keine Probleme.

Gruß Hawkeye

[Angel4585]

Ich habe auch auf Parent gesetzt, aber habs grade getestet und habe keinen Fehler bekommen

[Luckie]

Das heißt, ich müsste den Destruktor dann trotzdem noch mal überschreiben und dort dann so was machen:

Delphi-Quellcode:

var
  i: Integer;
begin
  for i := 0 to self.Count - 1 do
    self.Items[i].Parent := nil;
  inherited;

Womit ja dann in meinem Fall eine ObjectListe keine weiteren Vorteile zu einer normalen Liste bildet, da ich ja in beiden Fällen den Destruktor überschreiben müsste.

[Angel4585]

Ist das ein großes projekt? Oder kannst du das mal hier als Anhang anheften damit man sich das mal genau anschauen kann?

Edit: Aargh du hast ja ne 3rd party Kompo drinne

[Luckie]

Noch ist es nicht groß. Aber es verwendet eben eine Fremdkomponente, die man erst installieren müsste. Desweiteren mache ich das für die Firma und ich scheue mich etwas, das hier online zu stellen.

[Hawkeye219]

Michael, wäre TComponentList eine Alternative für dich?

Gruß Hawkeye

[Luckie]

Auch damit bekomme ich eine AV, auch wenn ich im Destruktor den parent auf nil setze:
self.Items[i].Parent := nil; Das ist irgendwie alles nichts. Ich glaube, ich bleibe doch bei meiner TList.

[Angel4585]

Also ich hab jetzt spasseshalber mal alle Komponenten vom Formular hinzugefügt und das ganze freigegeben.. kein Fehler..