IMetabaseCustomObjectReferences.Count

Синтаксис

Count: Integer;

Описание

Свойство доступно только для чтения.

Свойство Count возвращает количество зависимостей в коллекции.

Пример

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

Sub Main;

Var

Mb: IMetabase;

Object: IMetabaseObject;

CustomObject: IMetabaseCustomObject;

Reader: IMetabaseCustomObjectReader;

References: IMetabaseCustomObjectReferences;

i: Integer;

Ref: IMetabaseCustomObjectReference;

Begin

Mb := MetabaseClass.Active;

Object := Mb.ItemById(«OBJ_CUSTOM»).Bind;

CustomObject := Object As IMetabaseCustomObject;

Reader := CustomObject.CreateReader;

References := Reader.References;

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

Ref := References.Item(i);

Debug.WriteLine("Наименование объекта: " + Ref.Object.Name);

Debug.WriteLine("Ключ зависимости: " + Ref.Key.ToString);

Debug.WriteLine("---");

End For;

End Sub Main;

После выполнения примера в окно консоли буде выведена информация об объектах, от которых зависит объект «OBJ_CUSTOM».

См. также:

IMetabaseCustomObjectReferences