IRdsDictionaryTranslations.Count

Синтаксис

Count: Integer;

Описание

Свойство Count возвращает количество языков, на которые переводится справочник.

Комментарии

Емкость коллекции - это количество элементов, которое может содержать коллекция. Свойство Count - это количество элементов, которое в действительности содержится в коллекции. Емкость всегда больше или равна значению свойства Count. Если при добавлении элементов в коллекцию значение свойства Count превышает емкость, то она автоматически увеличивается.

Пример

Для выполнения примера предполагается наличие репозитория НСИ, содержащего справочник НСИ. Идентификатор репозитория - «RDS_REPO», справочника - «RDS_DICT». Также необходимо добавить ссылки на системные сборки «Metabase» и «Rds».

    Sub UserSub;
    Var
        Mb: IMetabase;
        RdsRepoDescr: IMetabaseObjectDescriptor;
        RdsDict: IRdsDictionary;
        DictTransl: IRdsDictionaryTranslations;
        i: Integer;
        Transl: IRdsDictionaryTranslation;
    Begin
        Mb := MetabaseClass.Active;
        RdsRepoDescr := Mb.ItemById("RDS_REPO");
        RdsDict := Mb.ItemByIdNamespace("RDS_DICT", RdsRepoDescr.Key).Bind As IRdsDictionary;
        DictTransl := RdsDict.Translations;
        For i := 0 To DictTransl.Count - 1 Do
            Transl := DictTransl.Item(i);
            If Transl.Locale = DictTransl.DefaultLocale Then
                Debug.WriteLine(Transl.Name);
            End If;
        End For;
    End Sub UserSub;

При выполнении примера методом перебора будут просмотрены все настройки, предназначенные для перевода справочника на различные языки. Если язык, для которого предназначена настройка, и язык, установленный по умолчанию для справочника, совпадут, то в окно консоли будет выведено наименование справочника на данном языке.

См. также:

IRdsDictionaryTranslations