ClassId: MetabaseObjectClass;
The ClassId property returns identifier of object type.
To execute the example, add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
SecDescrs: IMetabaseClassesSecurityDescriptors;
MS: IMetabaseSecurity;
i: Integer;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
// Get list of object types with permissions
SecDescrs := MS.MetabaseClassesSecurityDescriptors;
For i := 0 To SecDescrs.Count - 1 Do
Debug.WriteLine(SecDescrs.Item(i).ClassId);
End For;
End Sub UserProc;
After executing the example, the console shows object typesfor which access permissions are set.
See also: