Table.CellStyle(Row : Integer; Column : Variant).RowSpan : Integer =
Объединить ячейки по вертикали.

Свойство Table.CellStyle[].RowSpan позволяет объединить по вертикали несколько ячеек в одну.

Пример:

Procedure OnButtonRowClick;
Var
  i, j : Integer;
Begin
  // Объединение ячеек первого столбца с идущими подряд одинаковыми значениями
  For i:=0 To Table.Count-2 do
  Begin
    j := i;

    While j < Table.Count-1 Do
       If Table[j+1].First=Table[i].First Then j := j+1 
                                          Else Break;
    If j > i Then
    Begin
      Table.CellStyle[i,'First'].RowSpan := j-i+1;
      i := j;
    End;
  End;
End;

Результат работы:

Смотри метод ColSpan.

© RTIT