IObjectCheckOutInfo.Count

Синтаксис

Count: Integer;

Описание

Свойство Count возвращает количество записей о блокировании объекта.

Пример

Для выполнения примера предполагается наличие в репозитории объекта с идентификатором "Obj_1".

Sub UserProc;

Var

MB: IMetabase;

MDesc: IMetabaseObjectDescriptor;

Info: IObjectCheckOutInfo;

i: Integer;

Begin

MB := MetabaseClass.Active;

MDesc := MB.ItemById("Obj_1");

Info := MDesc.GetCheckOutInfo;

For i := 0 To Info.Count - 1 Do

UserInfo := Info.Item(i);

Debug.Write("Пользователь: " + UserInfo.UserName);

Debug.Write("; Станция: " + UserInfo.MachineName);

Debug.Write("; Дата и время блокировки: " + UserInfo.Stamp.ToString);

Debug.WriteLine("; Комментарий: " + UserInfo.Comment);

End For;

End Sub UserProc;

После выполнения примера в консоль среды разработки будет выведена информация о блокировках объекта "Obj_1".

См. также:

IObjectCheckOutInfo