ILanerSeriesSet.Add

Синтаксис

Add: ILanerSerie;

Описание

Метод Add добавляет ряд в набор.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox и компонента UiErAnalyzer с наименованием «UiErAnalyzer1», являющегося источником данных для TabSheetBox. В «UiErAnalyzer1» должна быть загружена рабочая книга базы данных временных рядов.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);

Var

ErAn: IEaxAnalyzer;

Laner: ILaner;

LanSers: ILanerSeries;

SerSet: ILanerSeriesSet;

Serie: ILanerSerie;

i: Integer;

Begin

ErAn := UiErAnalyzer1.ErAnalyzer;

Laner := ErAn.Laner;

LanSers := Laner.Series;

SerSet := LanSers.CreateSet;

For i := 0 To LanSers.Count - 1 Do

Serie := LanSers.Item(i);

SerSet.Add(Serie);

End For;

LanSers.Copy(SerSet);

LanSers.Paste(0);

End Sub Button1OnClick;

После выполнения примера для каждого ряда в рабочей книге будет создана копия.

См. также:

ILanerSeriesSet