Мельница данных  (27.03.2024)
Перечисление TSecurityModel (Модели безопасности)
1type
2  TSecurityModel = (smFullAccess, smPublic, smPrivate, smByAffiliation);

Или

1type
2  TSecurityModel = TOleEnum;
3const
4  smFullAccess = $00000000;
5  smPublic = $00000001;
6  smPrivate = $00000002;
7  smByAffiliation = $00000003;

Элементы перечисления:

Имя Значение Назначение
smFullAccess 0

Доступ не ограничен

smPublic 1

Публичный объект

smPrivate 2

Приватный объект

smByAffiliation 3

Доступ по принадлежности