function TValueCalc.GetValue(const key: string): TCache;
var
  objCache: TCache;
begin
  Result := nil;  
  //加锁
  FRead2Lock.Enter;
  try
    objCache := GetCacheInstance.GetCache(sKey);
    if objCache <> nil then
    begin
      //缓存正在更新，直接退出，不让线程等待，以提高性能
      if objCache.IsUpdating then
        Exit;
      //是否过期，未过期直接返回
      if MilliSecondsBetween(Now, objCache.LastTime) < Expires then
      begin
        Result := objCache;
        Exit;
      end;
      
      objCache.IsUpdating := True;
    end;
    //更新缓存
    Result := UpdateCache(key);
  finally
    //释放锁
    FRead2Lock.Leave;
  end;
end;

function TValueCalc.GetValue(const key: string): TCache;
var
  objCache: TCache;
begin
  Result := nil;      
  FRead2Lock.Enter;
  try
    objCache := GetCacheInstance.GetCache(sKey);
    if objCache <> nil then
    begin
      //缓存正在更新，直接退出，不让线程等待，以提高性能
      if objCache.IsUpdating then
        Exit;
      //检查缓存是否过期
      if MilliSecondsBetween(Now, objCache.LastTime) < Expires then
      begin
        Result := objCache;
        Exit;
      end;
      
      objCache.IsUpdating := True;
    end;
    
    //先释放读锁，后面线程可以继续读数据
    FRead2Lock.Leave;
    //加写锁
    FWriteLock.Enter;
    try
      //更新缓存
      Result := UpdateCache(key);
    finally
      //数据更新完毕，重新加上读锁
      FRead2Lock.Enter;
      //释放写锁
      FWriteLock.Leave;
    end;
  finally
    //释放读锁
    FRead2Lock.Leave;
  end;
end;