Component.Free -> auch fremde Zeiger auflösen

[stahli]

Das Problem ist früher schon besprochen worden.
Gibt es inzwischen eine (Delphi-)Löung, die ich noch nicht kenne?

Delphi-Quellcode:

Panel1 := TPanel.Create(Self);
Panel2 := Panel1;
Panel1.Free; // bzw. FreeAndNil(Panel1);
//... irgendwann später
if Assigned(Panel2) then
  Panel2.Caption := 'Exception!!!' // geht natürlich nicht mehr

Ich habe mir mal die Quelle von TObjectList angesehen und sogar fast komplett verstanden, wie das da funktioniert.

Gibt es inzwischen eine Möglichkeit, auch einzelne Komponenten an andere zu binden?
Panel2 soll automatisch auf nil gesetzt werden, wenn Panel1 freigegeben wird.

Ein nützliches Feature wäre das sicher...

[Uwe Raabe]

Smart Pointer nennt man das - gibt es aber in Delphi von Haus aus nicht.

[r2c2]

Zitat von Uwe Raabe:

Smart Pointer nennt man das - gibt es aber in Delphi von Haus aus nicht.

Und ist auch schwierig nachzubauen, da Delphi keine Kopierkonstruktoren kennt. Man braucht sowas aber auch kaum, wenn man es richtig angeht.

==> Sag mal, für was du das brauchst. Vielleicht gibts nen besseren Weg...

mfg

Christian

[stahli]

Ich habe selbst eine Lösung gebaut, die aber nur für meine "speziellen" Komponenten funktioniert (also nicht für Standardkomponenten, was sicher mal eine gute Sache für künftige Delphi-Versionen wäre - ähnlich, wie es mit TObjectList eingeführt wurde).

Ich habe sichtbare Komponenten (Tsc), die Datenkompnenten (Tdc) verwenden. Die DC werden in benötigter Menge erzeugt und beliebig viele SC können auf ein unbd die selbe DC zugreifen, um die Daten zu verwenden (anzeigen + ändern).

Wird durch die Geschäftslogik eine DC gelöscht, erfahren das die SC nicht automatisch.
DC.Free sollte für alle existierenden SC, bei denen SC.DC = freigegebeneDC ist
SC.DC := nil setzen.

Ich mache das selbst, indem ich alle SC in einer TComponentList sammle und die "Nilung" im Tdc.Destroy selbst veranlasse.

Eine grundsätzliche Lösung hielte ich jedoch für nützlich.
Für "normale" Variablen halte ich eine Umsetzung auch für möglich (ähnlich TComponentList), sofern Propertys mit Getter und Setter-Methoden "genilt" werden müssen, wird es aber sicher deutlich schwieriger.

[r2c2]

Zitat von stahli:

Ich habe sichtbare Komponenten (Tsc), die Datenkompnenten (Tdc) verwenden. Die DC werden in benötigter Menge erzeugt und beliebig viele SC können auf ein unbd die selbe DC zugreifen, um die Daten zu verwenden (anzeigen + ändern).

Wird durch die Geschäftslogik eine DC gelöscht, erfahren das die SC nicht automatisch.
DC.Free sollte für alle existierenden SC, bei denen SC.DC = freigegebeneDC ist
SC.DC := nil setzen.

Und was veranlasst dich dazu die DC-Dinger freizugeben und die SCs nicht?

mfg

Christian

[stahli]

Die DC-Dinger verwalten alle Projektdaten (im Grunde XML-Knoten) und die eigentliche Geschäftslogik.
Dort können Methoden angeschoben werden, die neue DC-Komponenten erstellen oder welche löschen.

Die GUI wird danach neu gezeichnet und muss dann neue SC-Komponenten erzeugen oder nicht mehr benötigte löschen.
Wenn sich die SC´s dann zeichnen wollen und auf eine inzwischen freigegebene DC zeigen, macht das natürlich Probleme.

Also meine Lösung funktioniert schon zuverlässig, ich wollte nur mal nachfragen, ob es inzwischen doch vielleicht eine automatische Lösung gibt.