ILogonSession.Groups

Синтаксис

Groups: IMetabaseGroups;

Описание

Свойство Groups возвращает объект, содержащий все рабочие группы в которые входит текущий пользователь репозитория.

Пример

Sub Main;

Var

MB: IMetabase;

LogSes: ILogonSession;

Groups: IMetabaseGroups;

i: Integer;

Begin

MB:=MetabaseClass.Active;

LogSes:=MB.LogonSession;

Groups:=LogSes.Groups;

i:=Groups.Count;

End Sub Main;

После выполнения примера в переменной «i» будет содержаться количество рабочих групп в которые входит текущий пользователь репозитория.

См. также:

ILogonSession