Manager: IMetabaseManager;
The Manager property enables getting the manager, in which the repository, corresponding to the current description, is registered.
Sub UserProc;
Var
MB: IMetabase;
Def: IMetabaseDefinition;
Man: IMetabaseManager;
Count: Integer;
Begin
MB := MetabaseClass.Active;
Def := MB.Definition;
Man := Def.Manager;
Count := Man.Definitions.Count;
End Sub UserProc;
After executing the example the Count variable contains the number of repositories descriptions on the current workstation.
See also: