如何从stringGrid中删除某一行（列）?

Grid.Cols[0].delete(n);  
  不行的。  
  如何从stringGrid中删除某一行（列）?  
   
  问题点数：50、回复次数：5Top

1 楼cg1120（代码最优化－§惟坚韧者始能遂其志§）回复于 2002-06-01 18:08:08 得分 50

一段stringgrid行列的增加和删除程序：  
   
  type  
      TExCell   =   class(TStringGrid)  
      public  
          procedure   DeleteRow(ARow:   Longint);  
          procedure   DeleteColumn(ACol:   Longint);  
          procedure   InsertRow(ARow:   LongInt);  
          procedure   InsertColumn(ACol:   LongInt);  
  end;  
   
  procedure   TExCell.InsertColumn(ACol:   Integer);  
  begin  
      ColCount   :=ColCount   +1;  
      MoveColumn(ColCount-1,   ACol);  
  end;  
   
  procedure   TExCell.InsertRow(ARow:   Integer);  
  begin  
      RowCount   :=RowCount   +1;  
      MoveRow(RowCount-1,   ARow);  
  end;  
   
  procedure   TExCell.DeleteColumn(ACol:   Longint);  
  begin  
      MoveColumn(ACol,   ColCount   -1);  
      ColCount   :=   ColCount   -   1;  
  end;  
   
  procedure   TExCell.DeleteRow(ARow:   Longint);  
  begin  
      MoveRow(ARow,   RowCount   -   1);  
      RowCount   :=   RowCount   -   1;  
  end;  
  Top

2 楼qevan（guodong）回复于 2002-06-01 18:15:53 得分 0

原来如此，  
  谢谢，现在结贴！  
  Top

3 楼ihihonline（潇潇->戒烟）回复于 2002-06-01 18:19:03 得分 0

不知道你删除某一例是指删除其中的内容呢？还是将其物理的删除？  
  如果是内容的话，直接清空就可以了；  
  如果是物理的话，那么，你可以动态的设置   ACol   -   1   就可以实现将其删除，再重新写入内容就可以；Top

4 楼ihihonline（潇潇->戒烟）回复于 2002-06-01 18:21:51 得分 0

不知道你删除某一例是指删除其中的内容呢？还是将其物理的删除？  
  如果是内容的话，直接清空就可以了；  
  如果是物理的话，那么，你可以动态的设置   ACol   -   1   就可以实现将其删除，再重新写入内容就可以；Top

5 楼ihihonline（潇潇->戒烟）回复于 2002-06-01 18:23:11 得分 0

白来啦，就当灌水吧Top

相关问题

• 物理
• 内容
• 删除
• texcell
• acol
• arow
• colcount
• stringgrid
• longint
• rowcount

• 帖主：qevan
• cg1120

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载