Коротко. Слабая ссылка на интерфейс

Иногда надо хранить СЛАБЫЕ ссылки на интерфейсы (без подсчёта ссылок).

Аналог атрибута [Weak].

Например для publisher/subscriber.

"Определяет зависимость типа «один ко многим» между объектами таким образом, что при изменении состояния одного объекта все зависящие от него оповещаются об этом событии."

Так вот вам решение:

type
 TmsWeakInterfaceRef = record
 // Слабая ссылка на интерфейс
  rShape : Pointer;
  constructor Create(const aShape: T);
  function AsShape: ImsShape;
  class operator Equal(const A: TmsWeakInterfaceRef; const B: TmsWeakInterfaceRef): Boolean;
  class operator Equal(const A: TmsWeakInterfaceRef; const B: T): Boolean;
  class operator Implicit(const aShape: T): TmsWeakInterfaceRef;
 end;//TmsWeakInterfaceRef

 TmsWeakShapeRef = TmsWeakInterfaceRef;
...
// TmsWeakInterfaceRef

constructor TmsWeakInterfaceRef.Create(const aShape: T);
begin
 Assert(SizeOf(T) = SizeOf(IUnknown));
 Move(aShape, Self.rShape, SizeOf(T));
end;

function TmsWeakInterfaceRef.AsShape: ImsShape;
begin
 Result := ImsShape(Self.rShape);
end;

class operator TmsWeakInterfaceRef.Equal(const A: TmsWeakInterfaceRef; const B: TmsWeakInterfaceRef): Boolean;
begin
 Result := (A.rShape = B.rShape);
end;

class operator TmsWeakInterfaceRef.Equal(const A: TmsWeakInterfaceRef; const B: T): Boolean;
var
 l_P : Pointer;
begin
 Assert(SizeOf(T) = SizeOf(Pointer));
 Move(B, l_P, SizeOf(T));
 Result := (A.rShape = l_P);
end;

class operator TmsWeakInterfaceRef.Implicit(const aShape: T): TmsWeakInterfaceRef;
begin
 Result := TmsWeakInterfaceRef.Create(aShape);
end;

Ссылка на коммит - https://bitbucket.org/lulinalex/mindstream/commits/825ca7487905ce786aa9f44b6a0d95e570b06b71

Ещё коммит - https://bitbucket.org/lulinalex/mindstream/commits/861e56e0bff2613b652d633f0183c93fde75601e

Окончательная версия:

type
 TmsWeakInterfaceRef = record
 // Слабая ссылка на интерфейс
  rRef : Pointer;
  constructor Create(const aShape: T);
  function AsRef: T; inline;
  class operator Equal(const A: TmsWeakInterfaceRef; const B: TmsWeakInterfaceRef): Boolean;
  class operator Equal(const A: TmsWeakInterfaceRef; const B: T): Boolean;
  class operator Implicit(const aShape: T): TmsWeakInterfaceRef;
  class operator Implicit(const aValue: TmsWeakInterfaceRef): T; inline;
 end;//TmsWeakInterfaceRef

 TmsWeakShapeRef = TmsWeakInterfaceRef;
...
// TmsWeakInterfaceRef

constructor TmsWeakInterfaceRef.Create(const aShape: T);
begin
 Assert(SizeOf(T) = SizeOf(IUnknown));
 Move(aShape, Self.rRef, SizeOf(T));
end;

function TmsWeakInterfaceRef.AsRef: T;
begin
 Result := nil;
 Assert(SizeOf(T) = SizeOf(Result));
 Move(Self.rRef, Result, SizeOf(T));
 Result._AddRef;
end;

class operator TmsWeakInterfaceRef.Implicit(const aValue: TmsWeakInterfaceRef): T;
begin
 Result := aValue.AsRef;
end;

class operator TmsWeakInterfaceRef.Equal(const A: TmsWeakInterfaceRef; const B: TmsWeakInterfaceRef): Boolean;
begin
 Result := (A.rRef = B.rRef);
end;

class operator TmsWeakInterfaceRef.Equal(const A: TmsWeakInterfaceRef; const B: T): Boolean;
var
 l_P : Pointer;
begin
 Assert(SizeOf(T) = SizeOf(Pointer));
 Move(B, l_P, SizeOf(T));
 Result := (A.rRef = l_P);
end;

class operator TmsWeakInterfaceRef.Implicit(const aShape: T): TmsWeakInterfaceRef;
begin
 Result := TmsWeakInterfaceRef.Create(aShape);
end;