Classes: IDbClasses;
Свойство Classes возвращает коллекцию классов объектов репозитория.
Свойство возвращает коллекцию, включающую в себя системные классы и классы, которые реализованы в пользовательских метаданных.
Добавьте ссылку на системную сборку Metabase.
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("Класс: " + Cls.Name + " (Идентификатор: " + Cls.Id + "; Ключ: " + Cls.Key.ToString + ')');
End For;
Debug.WriteLine("Общее количество классов: " + c.ToString);
End Sub UserProc;
После выполнения примера в консоль среды разработки будет выведена информация о классах объектов репозитория.
См. также: