Count: Integer;
The Count property returns the number of users groups of the active repository.
Sub Main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
MG: IMetabaseGroups;
i: Integer;
Begin
MB:=MetabaseClass.Active;
MS:=MB.Security;
MG:=MS.Groups;
i:=MG.Count;
End Sub Main;
After executing this example the "i" variable contains number of users groups of the active repository.
See also: