Count: Integer;
Свойство Count возвращает количество субъектов безопасности платформы.
Sub Main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
SSS: ISecuritySubjects;
SS: ISecuritySubject;
i: Integer;
Begin
MB:=MetabaseClass.Active;
MS:=MB.Security;
SSS:=MS.AllUsers;
i:=SSS.Count;
End Sub Main;
После выполнения примера в переменной «i» будет содержаться количество всех пользователей платформы.
См. также: