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

Question

一段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;

Answer 1

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

Answer 2

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