IMetabase.Classes

Syntax

Description

The Classes property returns the collection of repository objects classes.

Comments

The property returns the collection that includes system classes and classes implemented in custom metadata.

Example

Add a link to the Metabase system assembly.

Sub UserProc;
Var
    Mb: IMetabase;
    Classes: IDbClasses;
    Cls: IDbClass;
    i, c: Integer;
Begin
    Mb := MetabaseClass.Active;
    Classes := Mb.Classes;
    c := Classes.Count;
    For i := 0 To c - 1 Do
        Cls := Classes.Item(i);
        Debug.WriteLine("Class: " + Cls.Name + " (Identifier: " + Cls.Id + "; Key: " + Cls.Key.ToString + ')');
    End For;
    Debug.WriteLine("Total number of classes: " + c.ToString);
End Sub UserProc;

After executing the example information about repository objects classes is displayed in the development environment console.