Problem mit Objektfreigabe

[Suboptimierer]

Ich habe da wohl ein kleines Problem mit der Freigabe von Objekten, bei dem ihr mir sicher helfen könnt.
Mir ist ein Programm in die Hände gelegt worden, bei dem in einer Klasse in einer Klassenfunktion eine globale Variable iniziiert wird.
Ungefähr so:

Delphi-Quellcode:

TMuster= class(TObject)
  public
//...
end;
//...
var
  Muster: TMuster; 

implementation
//...
class procedure TMuster.GetMuster();
begin
  if not assigned(Muster) then
    Muster := TMuster.Create;
//...

Jetzt gibt es haufenweise Stellen, an denen TMuster.GetMuster() aufgerufen wird und ich weiß nicht genau wann der erste, entscheidende Aufruf stattfindet.
Also vorweg: ich weiß, dass globale Variablen nicht so der Hit sind und ich auch schon einen Haufen an globalen Funktionen, Variablen und Konstanten an eine Klasse geklebt habe, aber dieses Objekt bereitet mir noch Kopfschmerzen.

Meine Frage ist, wie ich am elegantesten das Dilemma löse, dass ich beim Beenden des Programms immer Speicherfehler angezeigt bekomme?

Bitte nicht solche Antworten geben wie "Tja, da musst du dein Programm wohl neu schreiben".
Würde es etwas bringen, wenn ich TMuster von TComponent ableite?
Soll ich den Destruktor der Mainform verwenden, um if assigned(Muster) then Muster.free; auszuführen?
Kann ich direkt in TMuster so etwas wie Self.Free im Destruktor verankern?
Wie würdet ihr vorgehen?

[rollstuhlfahrer]

Herzlich willkommen in der DP

Punkt 1: Schau dich mal nach Singleton um. Da müsste eigentlich eine Beschreibung dabei sein, wie man das wieder aus dem Speicher nimmt.

Zitat von Suboptimierer:

Meine Frage ist, wie ich am elegantesten das Dilemma löse, dass ich beim Beenden des Programms immer Speicherfehler angezeigt bekomme?

Und was ist die Quelle deines Speicherfehlers? Entfernst du das Objekt oder nicht?

Zitat von Suboptimierer:

Soll ich den Destruktor der Mainform verwenden, um if assigned(Muster) then Muster.free; auszuführen?

Schon mal ausprobiert?

Und noch was: Eventuell ist die Prüfung einfacher, wenn du Muster mit nil initialisierst. Dann kannst du nämlich auf ungleich nil prüfen und weißt dann, dass ein Objekt existiert.

Bernhard

[himitsu]

Zitat:

if assigned(Muster) then Muster.free;

if assigned(Muster) then ist eher nutzlos, da .Free dieses intern auch prüft.

Wurde die Variable vorher nicht auf NIL initialisiert, wenn kein Objekt (mehr) drin ist, dann bringt soeine Prüfung auf NIL/Assigned nichts.

[mkinzler]

Deshalb ist es wichtig immer FreeAndNil( <Instanz>); statt <Instanz>.Free; zu verwenden

[stahli]

Du könntest im Destructor prüfen, ob Deine Objektinstanz Deinem globalen "Muster" entspricht...

Delphi-Quellcode:

destructor TMuster.Destroy;
begin
  if Muster = Self then
    Muster := nil;
  inherited;
end;

Dadurch wird die Verbindung gelöst, egal wann und wie die Instanz aufgelöst wird. FreeAndNil ist dann (in dem Fall) nicht nötig.

[mjustin]

Delphi-Quellcode:

destructor TMuster.Destroy;
begin
  if Muster = Self then
    Muster := nil;
  inherited;
end;

Self nil zuweisen und dann den geerbten Destruktor aufrufen sieht etwas gefährlich aus :o

Michael

[stahli]

Das wäre nur ein gangbarer Weg, wenn Muster nie selbst eine Objektinstanz ist, sondern nur eine globale Variable, die auf ein anderes Objekt zeigt.

[Suboptimierer]

Zitat von rollstuhlfahrer:

Zitat von Suboptimierer:

Meine Frage ist, wie ich am elegantesten das Dilemma löse, dass ich beim Beenden des Programms immer Speicherfehler angezeigt bekomme?

Und was ist die Quelle deines Speicherfehlers? Entfernst du das Objekt oder nicht?

Bisher wird das Objekt wohl noch nicht entfernt. Bevor ich losmachen wollte, wollte ich mich nur nach dem elegantesten Stil umhören.
Die Meldung lautet übrigens so:

Zitat:

---------------------------
Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:



1 - 12 bytes: Unknown x 1

13 - 20 bytes: UnicodeString x 8

21 - 28 bytes: UnicodeString x 6

29 - 36 bytes: TCriticalSection x 1, TMuster x 4, UnicodeString x 2


---------------------------
OK
---------------------------

Quelle des Fehlers: ?

Zitat von rollstuhlfahrer:

Zitat von Suboptimierer:

Soll ich den Destruktor der Mainform verwenden, um if assigned(Muster) then Muster.free; auszuführen?

Schon mal ausprobiert?

Bisher noch nicht, weil ich vom Gefühl her dies eher für eine schlechtere Variante halte. Meines Erachtens muss sich das Objekt selbst ums aufräumen kümmern, oder der Aufrufer (in diesem Fall nicht feststellbar) oder die ultimative Lösung: der Garbage Collector.

Zitat von rollstuhlfahrer:

Und noch was: Eventuell ist die Prüfung einfacher, wenn du Muster mit nil initialisierst. Dann kannst du nämlich auf ungleich nil prüfen und weißt dann, dass ein Objekt existiert.

Was meinst du mit einfacher? Weniger Tipparbeit?

Zitat von stahli:

Delphi-Quellcode:

destructor TMuster.Destroy;
begin
  if Muster = Self then
    Muster := nil;
  inherited;
end;

Das ist finde ich eine sehr elegante Lösung
Damit brauche ich fremde Objekte nicht belasten. Das werde ich als erstes ausprobieren. Schon einmal danke!

[stahli]

Zitat von Suboptimierer:

Bisher noch nicht, weil ich vom Gefühl her dies eher für eine schlechtere Variante halte. Meines Erachtens muss sich das Objekt selbst ums aufräumen kümmern, oder der Aufrufer (in diesem Fall nicht feststellbar) oder die ultimative Lösung: der Garbage Collector.

Da kommst Du mit Delphi nicht weit. Das Thema wurde hier kürzlich angerissen.
Objekte (und Referenzen darauf) musst Du selbst auf nil setzen (oder eine Lösung selbst implementieren). Delphi macht das (leider) nicht automatisch.

[himitsu]

Zitat von stahli:

Zitat von Suboptimierer:

Meines Erachtens muss sich das Objekt selbst ums aufräumen kümmern, oder der Aufrufer (in diesem Fall nicht feststellbar) oder die ultimative Lösung: der Garbage Collector.

Da kommst Du mit Delphi nicht weit. Das Thema wurde hier kürzlich angerissen.
Objekte (und Referenzen darauf) musst Du selbst auf nil setzen (oder eine Lösung selbst implementieren). Delphi macht das (leider) nicht automatisch.

Wieso soll man das nicht autoatisch hinbekommen?

> Interfaces