IMetaAttributeTranslations.Name

Syntax

Name(Locale: LocaleCodeID): String;

Parameters

Locale. Unique identifier of translation language.

Description

The Name property sets attribute name translation.

Example

Executing the example requires that the repository contains a time series database with the TSDB identifier.

Add links to the Metabase, Cubes, Rds system assemblies.

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;

rh-droptext_end ?>

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.

See also:

IMetaAttributeTranslations