TbtkSelectionsIterator
``````````````````````````````````````````````````````````````````````

.. pas:class:: TbtkSelectionsIterator

  Класс дает возможность перебирать выборки на заданной форме или по всему
  приложению

  .. pas:method:: Create(): TbtkSelectionsIterator

    Конструктор создает объект перебора выборок. Если в качестве входного
    параметра указана форма, то перебор выборок ведется по ней. Если форма
    не указана, или указана главная форма приложения, то перебираются все
    выборки.

    :rtype: TbtkSelectionsIterator

    .. warning:: |not_supported|


  .. pas:method:: NextSelection(): TbtkScriptSelectionObject

    Метод объекта :pas:class:`TbtkSelectionsIterator` возвращает следующую по порядку
    выборку. Перебор производится в порядке поиска в ширину.
    Если все выборки перебраны, возвращает **Null**.

    :rtype: TbtkScriptSelectionObject

    .. code-block:: delphi
      :caption: Пример использования

      <PASCAL>
        iterator := Selection.CreateSelectionsIterator;
        str := 'Все выборки приложения:' + #13#10;

        repeat
          sel := iterator.NextSelection;
          if not VarIsNull(sel) then
          str := str + VarToStr(sel.EntityName) + '.' +
          VarToStr(sel.Representation) + #13#10;
        until VarIsNull(sel);

        ShowMessage(str);
      </PASCAL>