stringgrid 控件中 添加 ，删除，一行怎么用代码实现

Question

stringgrid 控件中 添加 ，删除，一行怎么用代码实现

Answer 1

增StringGrid.rowcount := StringGrid.rowcount+1
删 StringGrid.rowcount := StringGrid.rowcount-1

Answer 2

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 3

这个问题问过好多了，你在CSDN搜索一遍有很多，BCB那里就不少！