Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**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

mjustin Registriert seit: 14. Apr 2008 3.004 Beiträge Delphi 2009 Professional	#14 AW: Problem mit Objektfreigabe 2. Apr 2011, 09:01 markieren 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 Michael Justin
	Zitat