IForeMethodParam.Param

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

Sub UserProc;
Var
    mb: IMetabase;
    Shp: ISharedParams;
    UserMeth: IForeMethods;
    uMethod: IForeMethod;
    MethParams: IForeMethodParams;
    mParam: IForeMethodParam;
    i: Integer;
Begin
    mb := MetabaseClass.Active;
    Shp := mb.ItemById("SHARED_P").Bind As ISharedParams;
    UserMeth := Shp.Methods;
    uMethod := UserMeth.FindByKey(1);
    If uMethod <> Null Then
        uMethod.Bind;
        MethParams := uMethod.Params;
            For i := 0 To MethParams.Count - 1 Do
                mParam := MethParams.Item(i);
                Debug.WriteLine("Параметр: " + mParam.Param);
            End For;
    End If;
End Sub UserProc;