Problem mit Objektfreigabe

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