求教tstringgrid控件的使用

Question

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控件清空内容怎么清的?

Answer 1

1.stringgrid1.Update;
  sz[0]:=stringgrid1.Cells[0,a];
  sz[1]:=stringgrid1.Cells[1,a];
  sz[3]:=stringgrid1.Cells[2,a];2.循环对每一列每一行清空