Entwickler-Ecke :: Thema anzeigen - Freigeben eines Labels

Mortal-Shadow - Sa 09.05.09 18:32
Titel: Freigeben eines Labels

Hi,

Ich bin auf folgendes Problem gestoßen.
Ich brauche für jede Instanz einer Klasse ein Label und erzeuge es deshalb im Creator:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

Constructor TClass.Create(Labeltext : String;
begin
inherited create;
MyLabel := TLabel.Create(nil);
MyLabel.Top := ROW_1_TOP + (ROW_DIFFERENCE * (NumberInList-1));
MyLabel.Left := LABELS_LEFT;
MyLabel.Caption := labeltext;
MyLabel.Parent := FrmEinstellungen.GroupBox;
end;

Jetzt wollte ich es entsprechend im destructor freigeben

Delphi-Quelltext

1:
2:
3:
4:
5:

Destructor TClass.Destroy;
begin
MyLabel.free;
inherited destroy;
end;

Sobald meine Klasse aber zerstört wird bekomme ich ein Accesviolation Error.
Wenn ich entweder dass free im Destructor weglasse, oder aber den mylabel.parent nicht auf die Groupbox
setze, sondern auf nil, bekomme ich den Error nicht.

Mich verwirrt das ganze total.
Erstens dachte ich, dass Parent überhaupt nichts mit freigeben zu tun hat.
Und selbst wenn: Die Groupbox wird zu dem Zeitpunkt ja auch noch nicht freigegeben - er müsste ja nur kommen, wenn ich zuvor die groupbox freigebe.
Zweitens: Wieso sollte sonst ein Error kommen? - Ohne dass .free im destructor würde das label ja noch im Memory rumhängen.

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am So 10.05.2009 um 00:12

Mortal-Shadow - Sa 09.05.09 18:56

Ich habe es gerade erst in den Code eingefügt, und seit dem taucht der Fehler auf -> daraus habe ich geschlossen, dass es am Label liegt.
€: Und beim Debuggen kackt es auch immer beim label.free ab
Und ja, ich bin mir sicher - zumindest wird es nicht direkt freigegeben.
An keiner anderen Steller verwende ich ich das Label.
Aber irgendetwas muss es ja eigentlich freigeben.
Deshalb ja auch meine Verwirrung.

Und wie gesagt, wenn ich keinen Parent angebe funktioniert es ja :?:
(Man sieht es halt nicht.)

Yogu - Sa 09.05.09 19:55

Die Zugriffsverletzung ist typisch für den Fehler, einen Owner mit anzugeben, die Komponente dann aber selbst zu zerstören. Wenn der Owner angegeben ist, musst du die Komponente so entfernen:

Delphi-Quelltext

1:
2:

Owner.RemoveControl(Panel);
Component.Free;

Wobei Component das Label und Owner dessen Besitzer ist. Das könntest du mal ausprobieren. Allerdings kann ich mir nicht wirklich vorstellen, dass es dem Parent etwas ausmachen sollte, wenn die Komponente freigegeben wird.

Noch eins: Verwende besser FreeAndNil bei Feldern, dann kommt wenigstens an der Stelle garantiert keine Zugriffsverletzung mehr:

Delphi-Quelltext

1:
2:
3:
4:
5:

destructor TClass.Destroy;
begin
  FreeAndNil(MyLabel);
  inherited destroy;
end;

Nur zuer Sicherheit: Deine Klasse heißt nicht wirklich TClass, oder? Die gibt es nämlich schon von Haus aus, das könnte zu zusätzlichen Problem führen.

Mortal-Shadow - Sa 09.05.09 20:20

Ich habe geschaut und label.owner ist nil.
Und nein, die Klasse heist nicht TClass, ich habe es so genannt damit voll eindeutig werden soll was das ist. (Auch wenn das T eigentl genügt.)
Aber ich glaube ich habe den Fehler gefunden.
Ich habe ja immer mein Programm beendet, wodurch die Instanzen meiner Klasse freigegeben wurden.
Aber wenn sie an anderen Stellen im Code freigegeben werden, passiert kein Error. (Sprich wenn das Programm noch läuft.)
Beim Debuggen habe ich gemerkt, dass ich alle OnDestroy Aktionen in dem Event einer Form hatte.
Die Form die das Parent des Labels war wurde aber vor den Ondestroy-Aktionen schon freigegeben.
Wenn ich mein OnDestroy hierbei splitte funktioniert alles wieder.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!