ExtendToAdjacentCells: ITabRange;
Метод ExtendToAdjacentCells возвращает диапазон ячеек, полученный путём расширения текущего на соседние непустые ячейки.
Var
TSheet: ITabSheet;
TSel: ITabSelection;
TRange1, TRange2: ITabRange;
Begin
TSheet := //Получение параметров таблицы
TSel := TSheet.View.Selection;
//Получение выделенного диапазона
TRange1 := TSel.Range;
//Расширение диапазона
TRange2 := TRange1.ExtendToAdjacentCells;
//Выделение полученного диапазона в таблице
TSel.Range := TRange2;
При нажатии на кнопку будет получен диапазон, выделенный в текущий момент в таблице. Данный диапазон будет расширен до диапазона, включающего все соседние непустые ячейки. Полученный диапазон будет выделен в таблице.
Исходная таблица с выделенной ячейкой A0:
Выделенный диапазон, полученный при работе метода ExtendToAdjacentCells:
См. также: