Problem mit Objektfreigabe

[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!