Freigabe von Objekten (Observerpattern)

[Sir Rufo]

Hier mal veranschaulicht

Delphi-Quellcode:

type
  IObjectX = interface
  end;

  TObjectX = class( TInterfacedObject, IObjectX )
  end;

procedure Test;
var
  LObj : TObjectX;
  LIntf : IObjectX;
begin
  LObj := TObjectX.Create; // RefCount ist 0
  LIntf := LObj; // RefCount+1 -> 1
  LIntf := nil; // RefCount-1 -> 0 -> Instanz wird freigegeben
  LObj.Free; // rumms, ist ja nix mehr da an der Referenz
end;