ADOQuery返回值用TGrid单元合并（FlexCell插件）

最新推荐文章于 2023-12-06 16:40:25 发布

原创最新推荐文章于 2023-12-06 16:40:25 发布 · 829 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

Delphi 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一种使用Delphi或类似的表格组件实现单元格合并的方法，通过比较相邻单元格的文本内容来决定是否进行合并，特别适用于数据量较大时提高合并效率。

var
cell: _Cell;
range: _Range;
col_,row_,n_:integer;
cell_1,cell_2:string;
begin
col_:=1;
row_:=2;
n_:=0;
  repeat
  n_:=n_+1;
  cell:=Grid1.Cell(row_,col_);
  cell_1:=cell.Text;
  cell:=Grid1.Cell(row_+n_,col_);
  cell_2:=cell.Text;
    if cell_1<>cell_2 then
      begin
      range := Grid1.Range(row_,col_,row_+n_-1,col_);
      range.Merge();
      Grid1.InsertRow(row_+n_,1);
      row_:=row_+n_+1;
      n_:=0;
      end;
  until row_+n_=Grid1.Rows-1;
range := Grid1.Range(row_,col_,row_+n_,col_);
range.Merge();

数据量大的话合并速度很慢，目前没找到别的办法。