RevisionDimension: IDimInstance;
The RevisionDimension property returns the dictionary, that contains the series revisions.
Executing the example requires a form with the Button1 button, the Memo component with the Memo1 identifier, the TabSheetBox component and the UiErAnalyzer component named UiErAnalyzer1 which is used as a data source for TabSheetBox. Working area of the time series database must be loaded to UiErAnalyzer1.
Click the button to start executing the example.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
ErAn: IEaxAnalyzer;
Laner: ILaner;
Serie: ILanerSerie;
SourceSerie: ILanerSourceSerie;
Begin
ErAn := UiErAnalyzer1.ErAnalyzer;
Laner := ErAn.Laner;
Serie := Laner.Series.Item(0);
If Serie.Kind = LnSerieKind.Source Then
SourceSerie := Serie As ILanerSourceSerie;
If SourceSerie.Revision <> Null Then
Memo1.Lines.Add("Revision: " + SourceSerie.Revision.Name);
Memo1.Lines.Add("Dictionary: " + SourceSerie.RevisionDimension.Name);
Memo1.Lines.Add("Revision key: " + SourceSerie.RevisionKey.ToString);
End If;
End If;
End Sub Button1OnClick;
After executing the example the information about the current revision of the working area first series is displayed in the Memo1 component.
See also: