求教tstringgrid控件的使用

[angelo]

procedure TForm6.Button1Click(Sender: TObject);
var
a:integer;
sz:array[0..7] of string;
q1:tquery;
begin
q1:=tquery.Create(nil);
q1.DatabaseName:='aaa';
q1.Close;
a:=stringgrid1.Rowcount;
sz[0]:=stringgrid1.Cells[0,a];
sz[1]:=stringgrid1.Cells[1,a];
sz[3]:=stringgrid1.Cells[2,a];


for a:=2 to stringgrid1.Rowcount-2 do
begin
q1.SQL.Clear;
q1.SQL.Add('insert into test1 values('''+sz[0]+''','''+sz[1]+''','''+sz[2]+''')');
q1.ExecSQL;
end;
end;
上面那段代码哪里出了问题,为什么我输了4行记录,数据库里插入了3行空记录.
附一小问题:tstringgrid控件清空内容怎么清的?

[juwuyi]

1.stringgrid1.Update;
sz[0]:=stringgrid1.Cells[0,a];
sz[1]:=stringgrid1.Cells[1,a];
sz[3]:=stringgrid1.Cells[2,a];

2.循环对每一列每一行清空

[angelo]

那应该怎么写?