delphi问题。

while not adoquery1.Eof do
  begin
   for i:=0 to adoquery1.FieldCount-8 do
   StringGrid1.Cells[i+1,StringGrid1.RowCount]:=adoquery1.Fields[i].AsString;
   StringGrid1.RowCount:=  StringGrid1.RowCount+1;
  adoquery1.next;
  end;
 for i:=0 to StringGrid1.RowCount -1 do
StringGrid1.Cells[0,i+1]:=inttostr(i+1);

这是我对stringgrid的显示代码，现在怎么显示一行空白一行。比如第一行有显示数据，第二行为空，第三行显示数据，第四行为空。还有怎么把那些有显示数据的行全部改为同一个名称。谢谢各位大虾了。
暂时没分了，等两天有了我追加

追问：第1 3 5 7等的行显示一个名   第2 4 6 8等的行显示一个名每一列都一样。就是只要改行名，偶数的一个名奇数的一个名，用代码给的

答案：你是隔行显示数据吗？把StringGrid1.RowCount:=  StringGrid1.RowCount+1改为StringGrid1.RowCount:=  StringGrid1.RowCount+2啊。
第二个问题，看不明白是什么意思。

其他：你While内还嵌套for循环干嘛? 在此处定义该函数。delphi需要先声明，才能写函数。
  private
    
      function browsedialog(const Title:=string; const Flag: integer):string;
  public
    
    end;

private和public下都可以声明该函数

上一个：大侠！delphi里怎样打印bmp文件，bmp是现成的，固定的。
下一个：为什么我的电脑装不了delphi2010