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