stringgrid行的增加该怎么办

Question

如果我在type中不加texcell=class(tstringgrid)。
procedure TExCell.InsertRow(ARow: Integer);这一句该为
procedure InsertRow(ARow: Integer);
运行时又显示不认识RowCount和MoveRow

Answer 1

inc(RowCount);
和RowCount :=RowCount +1;应该差不多吧

Answer 2

没这么麻烦吧
{当前位置插入空行}
procedure TForm1.Button2Click(Sender: TObject);
var
   i,frow:integer;
begin
    frow:=stringgrid1.row;//记录当前选定行的位置
    stringgrid1.rowcount:=stringgrid1.rowcount+1;
    for i:=stringgrid1.rowcount downto frow do
      stringgrid1.Rows[i]:=stringgrid1.Rows[i-1];
    stringgrid1.Rows[frow].Clear;
end;