IMetabaseManager.Classes

Синтаксис

Classes: IDbClasses;

Описание

Свойство Classes возвращает коллекцию классов объектов, доступных в платформе.

Пример

Sub Main;

Var

Man: IMetabaseManager;

Classes: IDbClasses;

Cl: IDbClass;

i: Integer;

Begin

Man := MetabaseManagerFactory.Active;

Classes := Man.Classes;

For i := 0 To Classes.Count - 1 Do

Cl := Classes.Item(i);

Debug.WriteLine("Наименование: " + Cl.Name + "; Идентификатор: " + Cl.Id + "; Ключ: " + Cl.Key.ToString);

End For;

End Sub Main;

После выполнения примера в консоль среды разработки будет выведена информация обо всех, доступных в платформе, классах объектов.

См. также:

IMetabaseManager