delphi中stringgrid删除行问题

[chen_shu_jie]

我是先定义一类，
TMyGrid = class(TStringgrid);
然后用
TMyGrid(stringgrid1).DeleteRow(stringgrid1.Row );
可以删除选中的行.

但是，假如我现在只有2行数据。
我点中第一行删除后，再点第一行，stringgrid1.Row是等于2而不是1，但是此时的第二行是没有数据的。
用循环删除行太麻烦了，有没有什么办法解决这个问题。。

[chen_shu_jie]

好像理解错了，我是说假如我现在只有2行数据。
但我在用的时候有10多行数据呢，如果有15行，我删了第一行(删了就没了)，再删表格里面的第1行，此时的
stringgrid1.Row却是2，删除的也是表格显示出来的第二行，而这时表格显示的第2行 不是我想删除的行啊，我想删第1行的。
好绕，终于说完了。

[bdmh]

StringGrid1.RowCount := 0;

[chen_shu_jie]

哦了，thank you