ILogonSession.Groups

Syntax

Groups: IMetabaseGroups;

Description

The Groups property returns the object, containing all work groups, which the current repository user contains.

Example

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;

After executing the example, the "i" variable contains the number of work groups, which the current repository user contains.

See also:

ILogonSession