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

纯洁的兔子

于 2011-12-17 16:48:53 发布

阅读量774

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/Rabid_Rabbit/article/details/7080238

Delphi 专栏收录该内容

2 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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();

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