IOrmRecord.AttributeValue

Copy example

Sub RecordProc;
Var
    Facts: IMetaDictionary;
    Atts: IMetaAttributes;
    SelNodes: Array;
    MembersSet: IMetaMembersSet;
    Member: IMetaMember;
    Rec: IOrmRecord;
    i, AtrIndex: Integer;
    Att: IMetaAttribute;
Begin
    // Get time series dictionary
    Facts := MetaAttributesTreeList1.Rubricator.Facts;
    // Get time series attributes
    Atts := Facts.Attributes;
    // Get elements selected in a series tree
    SelNodes := MetaAttributesTreeList1.GetSelectedNodes;
    MembersSet := MetaAttributesTreeList1.GetNodesMembers(SelNodes);
    MembersSet.Reset;
    // Display information about elements in the console window
    While Not MembersSet.Eof Do
        Member := MembersSet.Current;
        Debug.WriteLine("Element: " + Member.Name);
        Rec := Member.Tuple;
        Debug.WriteLine("Values of element attributes:");
        For i := 0 To Atts.Count - 1 Do
            Att := Atts.Item(i);
            AtrIndex := Rec.FindAttribute(Att.Id);
            If AtrIndex <> -1 Then
                Debug.Indent;
                Debug.Write(" attribute: '" + Att.Name + "'; value: ");
                Debug.Unindent;
                Debug.WriteLine(Rec.AttributeValue(AtrIndex));
            End If;
        End For;
        Debug.WriteLine("");
        MembersSet.Next;
    End While;
End Sub RecordProc;