CellRevisionDimension(Row: Integer; Column: Integer): IDimInstance;
Row. Row index.
Column. Column index.
The CellRevisionDimension property returns the dictionary that contains data on revisions for the defined cell.
To get the latest revision within which the cell data was edited, use the ILanerTable.CellRevision property.
Executing the example requires a form with the following components: the Button component named Button1, the LanerBox component named LanerBox1, and the UiErAnalyzer component named UiErAnalyzer1. UiErAnalyzer1 is a data source for LanerBox1. A workbook of the time series database should be loaded to UiErAnalyzer1. Before executing the example select one series in the LanerBox1 component.
The example is a handler of the OnClick event for the Button1 component.
Add links to the Dimensions, Express, ExtCtrls, Forms, Laner, and Tab system assemblies.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Laner: ILaner;
LanTbl: ILanerTable;
RevDimInst: IDimInstance;
Atts: IDimAttributesInstance;
Elems: IDimElements;
i, j: Integer;
Atr: IDimAttributeInstance;
Begin
Laner := UiErAnalyzer1.ErAnalyzer.Laner;
LanTbl := Laner.Execute;
// Get revision dictionary
RevDimInst := LanTbl.CellRevisionDimension(0, 0);
// Get attributes of the revision dictionary
Atts := RevDimInst.Attributes;
// Get elements of the revision dictionary
Elems := RevDimInst.Elements;
// Show revision dictionary in the console window
For i := 0 To Elems.Count - 1 Do
Debug.WriteLine("Element " + i.ToString);
For j := 0 To Atts.Count - 1 Do
Atr := Atts.Item(j);
Debug.Write(Atr.Attribute.Name + ": ");
Debug.WriteLine(Atr.Value(i));
End For;
Debug.WriteLine("");
End For;
End Sub Button1OnClick;
After executing the example the console window shows the dictionary that contains data on revisions for the cell in the first row and the first column of the loaded workbook.
See also: