IInMemCubeCache.ReadParamValues

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    InMem: IInMemManager;
    Cubes: IInMemCubes;
    Cube: IInMemCube;
    Caches: IInMemCubeCaches;
    Cache: IInMemCubeCache;
    CacheParams: IMetabaseObjectParamValues;
    i: Integer;
Begin
    Mb := MetabaseClass.Active;
    // Инициализация менеджера для работы с кешем
    InMem := New InMemManager.Create;
    // Получение коллекции кешированных кубов репозитория
    Cubes := InMem.GetCubes(Mb, True, True);
    // Получение куба и его записи кеша
    Cube := Cubes.Item(0);
    Caches := Cube.Caches;
    Cache := Caches.Item(0);
    // Получение значений параметров
    If Cache.HasParamValues Then
        CacheParams := Cache.ReadParamValues;
        For i := 0 To CacheParams.Count - 1 Do
            Debug.WriteLine("Значение параметра " + i.ToString + CacheParams.Item(i).Value);
        End For;
    End If;
End Sub UserProc;