TbtkSelectionsIterator¶

class TbtkSelectionsIterator¶

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

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

Return type:: TbtkSelectionsIterator

Warning

Не поддерживается в Application Server

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>