AllPrivilegies: Integer;
The AllPrivilegies property returns the total number of user privileges.
Sub Main;
Var
MB: IMetabase;
User: IMetabaseUser;
SPUD: ISecurityPackageUserData;
Begin
MB := MetabaseClass.Active;
User := MB.LogonSession.User;
SPUD := User.PackageData;
Debug.WriteLine(SPUD.AllPrivilegies);
End Sub Main;
After executing the example the development environment console displays the total number of privileges of the current repository user.
See also: