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;