IBindingObjectParamValues.ItemDefined

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

Sub DimComboParamInfo(SourceBinding: String);
Var
    BM: IBindingManager;
    Binding: IBindingValue;
    DimComboBinding: IBindingDimCombo;
    Params: IBindingObjectParamValues;
    i: Integer;
Begin
    BM := New BindingManager.Create;
    Binding := BM.CreateByValue(SourceBinding);
    If Binding.UI = "DimCombo" Then
        DimComboBinding := Binding As IBindingDimCombo;
        Params := DimComboBinding.ParamValues;
        If Params.Count > 0 Then
            //Проверка наличия параметра YEAR_START, который создается в календарном справочнике
            If Params.ValueDefined("PARAMID_YEAR_START") Then
                Debug.WriteLine("YEAR_START: " + Params.Value("PARAMID_YEAR_START"));
            End If;
            //Проверка наличия параметра YEAR_FINISH, который создается в календарном справочнике
            If Params.ValueDefined("PARAMID_YEAR_FINISH") Then
                Debug.WriteLine("YEAR_FINISH: " + Params.Value("PARAMID_YEAR_FINISH"));
            End If;
            //Проверка параметров по номерам
            For i := 1 To Params.Count Do
                If Params.ItemDefined(i) Then
                    Debug.WriteLine("Параметр №" + i.ToString + ". Значение: " + Params.Item(i));
                End If;
            End For;
        End If;
    End If;
End Sub DimComboParamInfo;