Captions: IVZItemsNames;
Свойство Captions определяет подписи к элементам пузырькового дерева.
Для выполнения примера в репозитории необходимо наличие экспресс-отчёта с идентификатором «EXPRESS_REPORT», в котором содержится пузырьковое дерево. Выведем в консоль коллекцию подписей к элементам пузырькового дерева.
Добавьте ссылки на системные сборки: Metabase, Express, Visualizators. Указанная процедура должна вызываться из точки входа Main.
Sub UserProc;
Var
Metabase: IMetabase; // Репозиторий
EaxAnalyzer: IEaxAnalyzer; // Экспресс-отчёт
BubbleTree: IVZBubbleTree; // Пузырьковое дерево
i: Integer; // Счётчик цикла
AllKeys: IVZStringArray;
Key, Captions: String;
Begin
// Получим объект репозитория
Metabase := MetabaseClass.Active;
// Получим объект экспресс-отчёта
EaxAnalyzer := Metabase.ItemById("EXPRESS_REPORT").Edit As IEaxAnalyzer;
// Получим пузырьковое дерево
BubbleTree := EaxAnalyzer.BubbleTree.BubbleTree;
// Получим все ключи подписей
AllKeys := BubbleTree.Captions.AllKeys;
// Выведем коллекцию подписей
к элементам пузырькового дерева
For i:=0 To AllKeys.Count-1 Do
Key := AllKeys.Item(i);
Captions := BubbleTree.Captions.Item(Key);
BubbleTree.Captions.Item(Key) := Captions;
Debug.WriteLine(Captions);
End For;
End Sub UserProc;
После выполнения примера в консоль будут выведены подписи к элементам пузырькового дерева:
Белгородская область
Кировская область
Тульская область
Владимирская область
...
См. также: