stringgrid 控件 rowcount 的问题！

[access20121]

procedure TForm1.Button1Click(Sender: TObject);
begin
stringgrid3.RowCount:=stringgrid3.RowCount+1;
stringgrid3.Cells[0,stringgrid3.RowCount]:=adoquery1.fieldbynam('SPMC').AsString;
stringgrid3.Cells[1,stringgrid3.RowCount]:=adoquery1.fieldbyname('DW').AsString;
stringgrid3.Cells[2,stringgrid3.RowCount]:=edit21.Text;
stringgrid3.Cells[3,stringgrid3.RowCount]:=edit22.Text;
stringgrid3.Cells[4,stringgrid3.RowCount]:=inttostr(j);
end;
end.

我想实现 点击按钮 增加行 然后赋值， 但是 rowcount 不能为0，这让我不知道怎么办了！谁知道怎么解决麻烦给我说下!

[sundayzhao]

rowcount是不能为0，但其实你可以把第一行作为标题显示，这样不就实现了你的要求，用户看起来也方便。

[huanghua]

可以设个私有变量sgBtnCount 来判断是否是第一次增加行。
if sgBtnCount = 0 then
sg.Cells[0,sg.RowCount -1] := inttostr(sg.RowCount)
else
begin
sg.RowCount := sg.RowCount + 1;
sg.Cells[0,sg.RowCount-1] := inttostr(sg.RowCount);
end;
inc(sgBtnCount);

[mayyang610]

stringgrid的第一行一般是用来显示列标题的，这个控件有一个属性fixedrows，这个属性设置成1，就表示stringgrid的第一行是固定的，可以在这一行上显示列标题。增加/删除按钮操作行的时候就可以从第2行开始（下标是1）。同理列也是一样。

[hongss]

看来楼主是不要标题？直接用二楼的办法就可以了

[erhan]

procedure TForm1.Button2Click(Sender: TObject);
begin
stringgrid1.RowCount:=stringgrid1.RowCount+1;
stringgrid1.Cells[0,stringgrid1.RowCount-1]:='aaa';
stringgrid1.Cells[1,stringgrid1.RowCount-1]:='bbb';
stringgrid1.Cells[2,stringgrid1.RowCount-1]:='ccc';
stringgrid1.Cells[3,stringgrid1.RowCount-1]:='ddd';
stringgrid1.Cells[4,stringgrid1.RowCount-1]:='eee';
end;

行号是从0开始的，所以最大行的行号是rowcount-1