IObjectCheckOutInfo.Count

Syntax

Count: Integer;

Description

The Count property returns the number of records about object lock.

Example

Executing the example requires that the repository contains an object with the Obj_1 identifier.

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("User: " + UserInfo.UserName);

Debug.Write("; Machine: " + UserInfo.MachineName);

Debug.Write("; Date and time of lock: " + UserInfo.Stamp.ToString);

Debug.WriteLine("; Comment: " + UserInfo.Comment);

End For;

End Sub UserProc;

After executing the example the information about the locks of the Obj_1 object is displayed in the development environment console.

See also:

IObjectCheckOutInfo