1.8.19. 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>