IOrmSimpleClass.Attrs

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    RdsDict: IRdsDictionary;
    RdsDictInst: IRdsDictionaryInstance;
    OrmClass: IOrmSimpleClass;
    sAtts: IOrmSimpleAttrs;
    Attr: IOrmSimpleAttr;
    i: Integer;
    s: String;
Begin
    MB := MetabaseClass.Active;
    RdsDict := MB.ItemById("DICT").Bind As IRdsDictionary;
    RdsDictInst := RdsDict.Open(Null);
    OrmClass := RdsDict As IOrmSimpleClass;
    sAtts := OrmClass.Attrs;
    For i := 0 To sAtts.Count - 1 Do
        Attr := sAtts.Item(i);
        Debug.WriteLine("Attribute:");
        Debug.Indent;
        Debug.WriteLine("- key: " + Attr.Key.ToString);
        Debug.WriteLine("- identifier: " + Attr.Id);
        Debug.WriteLine("- name: " + Attr.Name);
        Select Case Attr.DataType
            Case DbDataType.Blob: s := "binary or character data array";
            Case DbDataType.Boolean: s := "logical data";
            Case DbDataType.Date: s := "date without time";
            Case DbDataType.DateTime: s := "date and time";
            Case DbDataType.Float: s := "real values";
            Case DbDataType.Integer: s := "integer values";
            Case DbDataType.NoData: s := "no data";
            Case DbDataType.String: s := "character data";
        End Select;
        Debug.WriteLine("- data type: " + s);
        Debug.Unindent;
    End For;
End Sub UserProc;