TbtkScriptLookUpParamsObject¶

class TbtkScriptLookUpParamsObject¶

Класс реализует доступ к locate параметрам переданным в вызов метода DoLookUp. Locate параметры - это набор пар ‘Имя параметра-значение’, по которым должен быть выполнен локейт в создаваемой выборке через метод DoLookUp. Класс позволяет из создаваемой выборки и получить параметры по которым в ней выполняется Locate.

LocateParamsCount → Integer¶

Количество параметров.

Return type:: Integer

Пример использования¶

<pascal>
  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;
</pascal>

LocateParamValues → Variant¶

Массив значений параметров.

Return type:: Variant

Пример использования¶

<pascal>
  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;
</pascal>

LocateParamNames → String¶

Массив имен параметров.

Return type:: String

Пример использования¶

<pascal>
  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;
</pascal>