Метод CreateLock – создать блокировку

Синтаксис:

function CreateLock(

ObjectType: Integer;

ObjectID: Integer): ILock;

Параметры:

ObjectType – тип объекта;

ObjectID – ИД объекта.

Возвращаемое значение:

Возвращает объект-блокировку.

Описание:

Метод создает и возвращает объект-блокировку. В качестве параметра ObjectType следует передавать одно из значений TCompType.

Пример использования:

// Заблокировать задачу.

// TaskID – ИД блокируемой задачи.

Lock = Application.CreateLock(ctTask; TaskID)

Lock.TryLockObject

if Lock.Locked and not Lock.LockedByThis

Exit(Format('Задача с ИД = %s заблокирована пользователем %s';

ArrayOf(TaskID; Lock.UserName)))

endif