TbtkScriptLookUpParamsObject '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' .. pas:class:: TbtkScriptLookUpParamsObject Класс реализует доступ к locate параметрам переданным в вызов метода ``DoLookUp``. Locate параметры - это набор пар 'Имя параметра-значение', по которым должен быть выполнен локейт в создаваемой выборке через метод ``DoLookUp``. Класс позволяет из создаваемой выборки и получить параметры по которым в ней выполняется ``Locate``. .. pas:attribute:: LocateParamsCount: Integer Количество параметров. :rtype: Integer .. code-block:: delphi :caption: Пример использования Selection.ExecOpScript('#AfterOpen'); if Assigned(Selection.LookUpParams) then begin for i := 0 to Selection.LookUpParams.LocateParamsCount - 1 do begin paramName := Selection.LookUpParams.LocateParamNames[i]; paramValue := VarToStr(Selection.LookUpParams.LocateParamValues[i]); ShowMessage(paramName + ' ' + paramValue); end; end; .. pas:attribute:: LocateParamValues: Variant Массив значений параметров. :rtype: Variant .. code-block:: delphi :caption: Пример использования Selection.ExecOpScript('#AfterOpen'); if Assigned(Selection.LookUpParams) then begin for i := 0 to Selection.LookUpParams.LocateParamsCount - 1 do begin paramName := Selection.LookUpParams.LocateParamNames[i]; paramValue := VarToStr(Selection.LookUpParams.LocateParamValues[i]); ShowMessage(paramName + ' ' + paramValue); end; end; .. pas:attribute:: LocateParamNames: String Массив имен параметров. :rtype: String .. code-block:: delphi :caption: Пример использования Selection.ExecOpScript('#AfterOpen'); if Assigned(Selection.LookUpParams) then begin for i := 0 to Selection.LookUpParams.LocateParamsCount - 1 do begin paramName := Selection.LookUpParams.LocateParamNames[i]; paramValue := VarToStr(Selection.LookUpParams.LocateParamValues[i]); ShowMessage(paramName + ' ' + paramValue); end; end;