插入的问题

Question

请大家帮忙看看下面代码添加第一次的时候插入2行，在点击一次就1行，怎么把他弄成每次点击都是1行啊procedure TMain.N27Click(Sender: TObject);
var 
  i,frow:integer;
begin
  frow:=stringgrid1.row;//记录当前选定行的位置
  stringgrid1.rowcount:=stringgrid1.rowcount+1;
    for i:=stringgrid1.rowcount downto frow+1 do begin
       stringgrid1.Rows[i]:=stringgrid1.Rows[i-1];
       stringgrid1.Rows[frow+1].Clear;
    end;end;

Answer 1

这跟你当前选中的行frow有关系吧，自己看看每次frow怎么变化的

Answer 2

没有用过，但分析了一下，如果stringgrid1.row从0开始，正好会出现你的这种现象。请确定一下stringgrid1.row这个是不是从0开始的，如果是从0开始那你的行号都要相应的减1才行。