ParamCount: Integer;
Свойство ParamCount возвращает общее количество параметров пользователя.
Sub UserProc;
Var
MB: IMetabase;
User: IMetabaseUser;
SPUD: ISecurityPackageUserData;
i, c: integer;
Begin
MB := MetabaseClass.Active;
User := MB.LogonSession.User;
SPUD := User.PackageData;
c := SPUD.ParamCount;
For i := 0 To c - 1 do
Debug.WriteLine(SPUD.ParamName(i));
End For;
End Sub UserProc;
При выполнении примера в консоль среды разработки будет выведен список параметров безопасности пользователя.
См. также: