IDbClasses.Count

Syntax

Count: Integer;

Description

The Count property returns the number of object classes available in the platform.

Example

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("Name: " + Cl.Name + "; Identifier: " + Cl.Id + "; Key: " + Cl.Key.ToString);

End For;

End Sub Main;

After executing the example the information about all object classes available in the platform will be displayed in the development environment console.

See also:

IDbClasses