IMetaAttributeTranslations.Name

To execute this example, add links to the Metabase, Cubes and Rds system assemblies. The repository must contain a time series database with the TSDB identifier.

Class TestForm: Form
    Button1: Button;
    Button2: Button;
    Button3: Button;
    Button4: Button;
    Mb: IMetabase;
    Mobj: IMetabaseObject;
    TSDB: IMetaDictionary;
    Attr: IMetaAttribute;
    MDT: IMetaDictionaryTranslations;

    Sub OBJ1466FormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        Mb := MetabaseClass.Active;
        Mobj:= MB.ItemById("TSDB").Bind;
    End Sub OBJ1466FormOnCreate;

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Var Rubr: IRubricator;
    Begin
        Rubr := Mobj.Edit As IRubricator;
        TSDB := Rubr.EditFacts;
        MDT := TSDB.Translations;
        MDT.IsOn := True;
        MDT.AddLocale(LocaleCodeID.English);
        MDT.AddLocale(LocaleCodeID.Japanese);
        MDT.AddLocale(LocaleCodeID.French_France);
        (Rubr as IMetabaseObject).Save;
    End Sub Button1OnClick;

    Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
    Var Rubr: IRubricator;
    Begin
        Rubr := Mobj.Edit As IRubricator;
        TSDB := Rubr.EditFacts;
        MDT := TSDB.Translations;
        MDT.IsOn := True;
        MDT.RemoveLocale(LocaleCodeID.English);
        (Rubr as IMetabaseObject).Save;
    End Sub Button2OnClick;

    Sub Button3OnClick(Sender: Object; Args: IMouseEventArgs);
    Var Rubr: IRubricator;
    Begin
        Rubr := Mobj.Edit As IRubricator;
        TSDB := Rubr.EditFacts;
        MDT := TSDB.Translations;
        MDT.IsOn := True;
        MDT.RemoveAllLocales;
        (Rubr as IMetabaseObject).Save;
    End Sub Button3OnClick;

    Sub Button4OnClick(Sender: Object; Args: IMouseEventArgs);
    Var Rubr: IRubricator;
    Begin
        Rubr := Mobj.Edit As IRubricator;
        TSDB := Rubr.EditFacts;
        Attr := TSDB.Attributes.FindById("Key");
        Attr.Translations.Name(LocaleCodeID.French_France) := "Clef";
        (Rubr as IMetabaseObject).Save;
    End Sub Button4OnClick;
End Class TestForm;

After clicking the Button1 button the collection of settings includes settings for the English, French and Japanese languages. After clicking the Button2 button, the English language is removed from the collection. After clicking the Button3 button, all the languages except for the language, in which the time series database is created, are removed from the collection. After clicking the Button4 button, name of the attribute with the Key identifier is translated as Clef in French.

IMetaAttributeTranslations.Name

Syntax

Parameters

Description

Example