Count: Integer;
Свойство Count возвращает количество групп пользователей активного репозитория.
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;
После выполнения примера в переменной «i» будет содержаться количество групп пользователей активного репозитория.
См. также: