Attribute: IMetaAttribute;
The Attribute property returns an attribute, for which a name is set.
Executing the example requires that the repository contains a time series database with the OBJ_FC identifier.
Sub Main;
Var
Mb: Imetabase;
Rubr: IRubricator;
Facts: IMetaDictionary;
Atts: IMetaAttributeNamings;
AtrN: IMetaAttributeNaming;
i: Integer;
Begin
Mb := MetabaseClass.Active;
Rubr := MB.ItemById("OBJ_FC").Edit As IRubricator;
Facts := Rubr.Facts;
Atts := Facts.AttributeNamings;
Debug.WriteLine(Delimiter: + Atts.NamingDelimiter);
Debug.WriteLine("-------------------");
For i := 0 To Atts.Count - 1 Do
AtrN := Atts.Item(i);
Debug.WriteLine(Name: + AtrN.Name);
Debug.WriteLine(Key: + AtrN.Key.ToString);
Debug.WriteLine(Identifier: + AtrN.Id);
If AtrN.NamingFormat <> ""
Then Debug.WriteLine(Name format: + AtrN.NamingFormat);
Else Debug.WriteLine(Name format is not determined);
End If;
Debug.WriteLine(Attribute: + AtrN.Attribute.Name);
Debug.WriteLine("-------------------");
End For;
End Sub Main;
After executing the example, information about the names set for time series database is displayed in the console window.
See also: