IMetabase.Classes

Синтаксис

Classes: IDbClasses;

Описание

Свойство Classes возвращает коллекцию классов объектов репозитория.

Пример

Sub Main;

Var

Mb: IMetabase;

i: Integer;

Classes: IDbClasses;

classDb: IDbClass;

Begin

Mb := MetabaseClass.Active;

Classes := Mb.Classes;

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

classDb := Classes.Item(i);

Debug.WriteLine("Класс :" + classDb.Id);

Debug.WriteLine(" Наименование :" + classDb.Name);

Debug.WriteLine(" Ключ :" + classDb.Key.ToString);

End For;

Debug.WriteLine(mb.Classes.Count);

End Sub Main;

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

См. также:

IMetabase