1.8.30. TbtkSelectionsIterator

class TbtkSelectionsIterator

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

Create(): TbtkSelectionsIterator

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

Return type:TbtkSelectionsIterator

NextSelection(): TbtkScriptSelectionObject

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

Return type:TbtkScriptSelectionObject

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

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