1.8.17. TbtkScriptFilterParamsObject

class TbtkScriptFilterParamsObject

Класс обеспечивает доступ к списку параметров стандартного фильтра выборки

Values

Массив значений параметров с доступом как по индексу, так и по системному имени

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

<pascal>
  Result := '';
  Count := Selection.FilterParams.Count;
  Result := 'Parameters count = ' + IntToStr(Count) + #13#10 + #13#10;

  for i := 0 to Count - 1 do
  begin
    Name := Selection.FilterParams.Names[i];
    ValueByIndex := Selection.FilterParams.Values[i];
    ValueByName := Selection.FilterParams.Values[Name];
    IndexOf := Selection.FilterParams.IndexOf[Name];
    Result := Result + 'Names[' + IntToStr(i) + '] = ' + Name + #13#10 +
      'Values[' + IntToStr(i) + '] = ' + VarToStr(ValueByIndex) + #13#10 +
      'Values[' + Name + '] = ' + VarToStr(ValueByName) + #13#10 +
      'IndexOf[' + Name + '] = ' + IntToStr(IndexOf) + #13#10 + #13#10;
  end;

   ShowMessage(Result);
</pascal>

Names

Массив системных имен параметров с доступом по индексу

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

<pascal>
  Result := '';
  Count := Selection.FilterParams.Count;

  for i := 0 to Count - 1 do
  begin
    Name := Selection.FilterParams.Names[i];
    Result := Result + 'Names[' + IntToStr(i) + '] = ' + Name + #13#10;
  end;

   ShowMessage(Result);
</pascal>

Count: Integer

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

Return type:Integer

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

<pascal>
  Count := Selection.FilterParams.Count;
</pascal>

IndexOf(): Integer

Индекс параметра с доступом по системному имени. Возвращает -1 если такое имя отсутствует.

Return type:Integer

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

<pascal>
  Result := '';
  Count := Selection.FilterParams.Count;
  Result := 'Parameters count = ' + IntToStr(Count) + #13#10 + #13#10;

  for i := 0 to Count - 1 do
  begin
    Name := Selection.FilterParams.Names[i];
    ValueByIndex := Selection.FilterParams.Values[i];
    ValueByName := Selection.FilterParams.Values[Name];
    IndexOf := Selection.FilterParams.IndexOf[Name];
    Result := Result + 'Names[' + IntToStr(i) + '] = ' + Name + #13#10 +
      'Values[' + IntToStr(i) + '] = ' + VarToStr(ValueByIndex) + #13#10 +
      'Values[' + Name + '] = ' + VarToStr(ValueByName) + #13#10 +
      'IndexOf[' + Name + '] = ' + IntToStr(IndexOf) + #13#10 + #13#10;
  end;

   ShowMessage(Result);
</pascal>