CurrentCell: ITabRange;
CurrentCell: Prognoz.Platform.Interop.Tab.ITabRange;
Свойство CurrentCell возвращает ячейку, в которой в данный момент находится итератор.
Для выполнения примера создайте форму, приведенную в примере Fore для метода ITabCellIterator.Next. Добавьте на форму кнопки «Button3» и «Button4» и компонент EditBox с наименованием «EditBox1».
Добавим обработчики событий нажатия на кнопки «Button3» и «Button4»:
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
iter.First;
End Sub Button1OnClick;
Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
EditBox1.Text:= "Row:" + iter.CurrentRow.ToString + ", Col:" + iter.CurrentColumn.ToString;
iter.CurrentCell.Value:= "Cell"+ iter.CurrentCell.Address;
End Sub Button2OnClick;
Выполните пример. В таблице введите значения в произвольные ячейки. Создайте итератор, выбрав диапазон таблицы и нажав на кнопку «Button1», которая была создана в примере для ITabCellIterator.Next. Нажмите кнопку «Button3» (в нашем примере - кнопка с текстом «Первый»): будет осуществлен переход к первому элементу. Нажмите кнопку «Button4» (в нашем примере - кнопка с текстом «Текущая ячейка»): в компоненте EditBox будет выведен текст «Row:-1, Col:-1» - индексы строки и столбца первой ячейки итератора.
Перейдите на следующий элемент итератора при помощи кнопки «Button2», которая была создана в примере для ITabCellIterator.Next. Нажмите кнопку «Button4»: значение ячейки изменится на «Cell <адрес ячейки>», в компоненте EditBox будет выведен текст «Row:-<индекс строки>, Col: <индекс столбца>»:
Для выполнения примера создайте форму, приведенную в примере Fore.NET для метода ITabCellIterator.Next. Добавьте на форму кнопки «Button3» и «Button4» и компонент TextBox с наименованием «TextBox1».
Добавим обработчики событий нажатия на кнопки «Button3» и «Button4»:
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Begin
iter.First();
End Sub;
Private Sub button2_Click(sender: System.Object; e: System.EventArgs);
Begin
iter.CurrentCell.Value:= "Cell"+ iter.CurrentCell.Address;
TextBox1.Text:= "Row:" + iter.CurrentRow.ToString + ", Col:" + iter.CurrentColumn.ToString;
End Sub;
Выполните пример. В таблице введите значения в произвольные ячейки. Создайте итератор, выбрав диапазон таблицы и нажав на кнопку «Button1», которая была создана в примере для ITabCellIterator.Next. Нажмите кнопку «Button3» (в нашем примере - кнопка с текстом «Первый»): будет осуществлен переход к переход к первому элементу. Нажмите кнопку «Button4» (в нашем примере - кнопка с текстом «Текущая ячейка»): в компоненте TextBox будет выведен текст «Row:-1, Col:-1» - индексы строки и столбца первой ячейки итератора.
Перейдите на следующий элемент итератора при помощи кнопки «Button2», которая была создана в примере для ITabCellIterator.Next. Нажмите кнопку «Button4»: значение ячейки изменится на «Cell <адрес ячейки>», в компоненте TextBox будет выведен текст «Row:-<индекс строки>, Col: <индекс столбца>».
См. также: