Model: IMetabaseObjectDescriptor;
Свойство Model определяет модель, в которую была сохранена или из которой была восстановлена группа вычисляемых рядов.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента Memo с идентификатором «Memo1», компонента TabSheetBox и компонента UiErAnalyzer с наименованием «UiErAnalyzer1», являющегося источником данных для TabSheetBox. В «UiErAnalyzer1» должна быть загружена рабочая область базы данных временных рядов. В рабочей области предполагается наличие группы вычисляемых рядов.
Пример будет выполняться при нажатии на кнопку.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
ErAn: IEaxAnalyzer;
Laner: ILaner;
Serie: ILanerSerie;
GroupSerie: ILanerCalculateGroupSerie;
j: Integer;
Begin
ErAn := UiErAnalyzer1.ErAnalyzer;
Laner := ErAn.Laner;
For j := 0 To Laner.SeriesList.Count - 1 Do
Serie := Laner.SeriesList.Item(j);
If Serie.Kind = LnSerieKind.CalculateGroup Then
GroupSerie := Serie As ILanerCalculateGroupSerie;
GroupSerie.Expanded := True;
Memo1.Lines.Add("Группа вычисляемых рядов: " + GroupSerie.Name);
Memo1.Lines.Add("Ошибки: " + GroupSerie.Error);
GroupSerie.SaveModel;
Memo1.Lines.Add("Группа сохранена в модель: " + GroupSerie.Model.Name);
End If;
End For;
End Sub Button1OnClick;
После выполнения примера группа вычисляемых рядов будет сохранена в модель. В компонент «Memo1», будет выведена информация наименовании модели и об ошибках, возникших при расчете ряда.
См. также: