IMetabaseCustomObjectReferences.Count

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    CustomObject: IMetabaseCustomObject;
    Reader: IMetabaseCustomObjectReader;
    References: IMetabaseCustomObjectReferences;
    Ref: IMetabaseCustomObjectReference;
    i: Integer;
Begin
    Mb := MetabaseClass.Active;
    CustomObject := Mb.ItemById("OBJ_CUSTOM").Bind 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 UserProc;