IRdsDatabaseInstance.AttributeTypes

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    NSI: IRdsDatabase;
    NSIInst: IRdsDatabaseInstance;
    Folder: IRdsAttributeTypeFolder;
    Folders: IRdsAttributeTypeFolders;
    Types: IRdsAttributeTypes;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    NSI := MB.ItemById("NSI_1").Bind As IRdsDatabase;
    NSIInst := NSI.Open(Null);
    Folder := NSIInst.AttributeTypes;
    Debug.WriteLine("Folders contained in root directory of attribute types");
    Debug.Indent;
    //Folders contained in root folder
    Folders := Folder.Folders;
    For i := 0 To Folders.Count - 1 Do
        Debug.WriteLine(Folders.Item(i).Name);
    End For;
    Debug.Unindent;
    Debug.WriteLine("Attribute types contained in root directory");
    Debug.Indent;
    //Attribute types contained in root directory
    Types := Folder.Types;
    For i := 0 To Types.Count - 1 Do
        Debug.WriteLine(Types.Item(i).Name);
    End For;
    Debug.Unindent;
End Sub UserProc;