Freigeben eines Labels

Mortal-Shadow · Beiträge: 110

Hi,

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

markieren

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

markieren

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

Ehemaliges Mitglied Erhaltene Danke: 1

Du bist aber sicher, dass sonst nirgends im Code unter gewissen Voraussetzungen das Label freigegeben wird?

Mortal-Shadow · Beiträge: 110

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.)

Ehemaliges Mitglied Erhaltene Danke: 1

Das verstehe ich im Moment auch nicht. Falls Deine Klasse von TComponent abgeleitet ist, könntest Du diese ja mal testhalber dem Label als Owner mitgeben. Allerdings bezweifle ich, dass sich dadurch etwas ändert.

Yogu · Verfasst: 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:

markieren

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:

markieren

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 · Beiträge: 110

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.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme