IMetaAttributesSet.Count

Синтаксис

Count: Integer;

Описание

Свойство Count возвращает количество элементов в наборе.

Пример

Для выполнения примера предполагается наличие в репозитории базы данных временных рядов с идентификатором OBJ_FC и репозитория НСИ с идентификатором RDS_REPO. В репозитории НСИ должен присутствовать справочник с идентификатором DICT_CTR.

Добавьте ссылки на системные сборки Metabase, Rds, Cubes.

Sub UserProc;
Var
    MB: IMetabase;
    Rubr: IRubricator;
    Facts: IMetaDictionary;
    Atts: IMetaAttributes;
    Attr: IMetaAttribute;
    SS: IMetaAttributesSubset;
    Rds: IMetabaseObjectDescriptor;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    Rubr := MB.ItemById("OBJ_FC").Bind As IRubricator;
    Facts := Rubr.Facts;
    Atts := Facts.Attributes;
    SS := Atts.CreateSubset("KEY;REV", SubsetOperation.Select_);
    Rds := mb.ItemById("RDS_REPO");
    Attr := Atts.FindByValuesObject(MB.GetObjectKeyByIdNamespace("DICT_CTR", Rds.Key));
    If Attr <> Null Then
        SS.Add(Attr);
    End If;
    For i := 0 To SS.Count - 1 Do
        Debug.WriteLine(SS.Item(i).Name);
    End For;
End Sub UserProc;

После выполнения примера будет создан набор, состоящий из атрибутов «KEY» и «REV». Если у показателей базы данных временных рядов присутствует атрибут, ссылающийся на справочник с идентификатором DICT_CTR в репозитории НСИ, то данный атрибут также будет добавлен в набор. В окно консоли будут выведены наименования всех атрибутов, входящих в набор.

См. также:

IMetaAttributesSet