IMetabase.Classes

Syntax

Classes: IDbClasses;

Description

The Classes property returns the collection of repository objects classes.

Example

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("Class :" + classDb.Id);

Debug.WriteLine(" Name :" + classDb.Name);

Debug.WriteLine(" Key :" + classDb.Key.ToString);

End For;

Debug.WriteLine(mb.Classes.Count);

End Sub Main;

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

See also:

IMetabase