unit Unit1;

interface

type
  TMyObject = class
  private
    FObject1,FObject2: TMyOtherObject;
    FMyCalculatedValue: Integer;
      function GetMyCalculatedValue: Integer;
  public
    property MyCalculatedValue: Integer read GetMyCalculatedValue;
  end;

implementation

  function TMyObject.GetMyCalculatedValue: Integer;
  begin
    if FMyCalculatedValue = 0 then
    begin
      FMyCalculatedValue :=
        FObject1.OtherCalculatedValue + // This is also calculated
        FObject2.OtherValue;
    end;

    Result := FMyCalculatedValue;
  end;

end.

用于计算的对象更改并且应重置和重新计算缓存的值并不罕见.到目前为止,我们使用观察者模式解决了这个问题：对象实现OnChange事件,以便其他人可以订阅,在更改和重置缓存值时得到通知.这种方法有效,但有一些缺点：

>管理订阅需要大量内存.
>当缓存的值取决于大量对象(例如列表)时,它不能很好地扩展.
>依赖关系不是非常具体(即使缓存值仅依赖于一个属性,当其他属性更改时,它也将被重置).
>管理订阅会影响整体性能并且难以维护(对象被删除,移动,……).
>目前尚不清楚如何根据其他计算值处理计算.

最后一个问题：你能否提出其他方法来实现缓存的计算值？