UngroupSeries(Series: ILanerSeriesSet);
Series. Набор рядов рабочей книги, которые необходимо разъединить.
Метод UngroupSeries разъединяет группу рядов в рабочей книге.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента LanerBox с наименованием «LanerBox1» и компонента UiErAnalyzer с наименованием «UiErAnalyzer1», являющегося источником данных для LanerBox. В «UiErAnalyzer1» должна быть загружена рабочая книга базы данных временных рядов.
Пример будет выполняться при нажатии на кнопку.
Sub Button1OnClick(Sender:Object; Args: IMouseEventArgs);
Var
ErAn: IEaxAnalyzer;
Laner: ILaner;
Ser: ILanerSeries;
SeriesSet: ILanerSeriesSet;
i: Integer;
SelSer: ILanerSerie;
Begin
ErAn := UiErAnalyzer1.ErAnalyzer;
Laner := ErAn.Laner;
Ser := Laner.Series;
SeriesSet := Ser.CreateSet;
For i := 0 To LanerBox1.SelectedSeriesCount - 1 Do
SelSer := LanerBox1.SelectedSeries(i);
SeriesSet.Add(SelSer);
End For;
LanerBox1.UngroupSeries(SeriesSet);
End Sub Button1OnClick;
После выполнения примера группы, входящие в выделенные ряды рабочей книги, будут разъединены.
См. также: