IMetabaseCustomObjectReferences.Count

Copy example

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("Object name: " + Ref.Object.Name);
        Debug.WriteLine("Dependency key: " + Ref.Key.ToString);
        Debug.WriteLine("---");
    End For;
End Sub UserProc;