Key: Integer;
Свойство доступно только для чтения.
Свойство Key возвращает ключ зависимости.
Для выполнения примера предполагается наличие в репозитории объекта пользовательского класса с идентификатором «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».
См. также: