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

Contents

Синтаксис:

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