IRdsDictionaryTranslation.IsDefault

Syntax

IsDefault: Boolean;

Description

The IsDefault property returns whether configured language is a default language for a dictionary.

Comments

Available values:

True. The language is a default one for a dictionary.
False. The language is the language a dictionary is translated into.

Example

Executing the example requires an MDM repository that contains the MDM dictionary. The repository identifier is RDS_REPO, the dictionary identifier is RDS_DICT. It is also necessary to add links to the Metabase and Rds system assemblies.

    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.IsDefault Then
                Debug.WriteLine(Transl.Name);
            End If;
        End For;
    End Sub UserSub;

On executing the example, all settings used to translate a dictionary into different languages are reviewed by search method. If the language, for which the setting is determined, is the default language for a dictionary, a dictionary name is displayed in the console window in this language.