如何删除stringgrid的行

Question

id   meg
1    a
2    b
3    c
我删除了第二行结果为
id   meg
1    a3    c
其中第二行我是先删除数据库里的数据然后清空，但是却找不到如何把第一行也干掉
中间始终留着空白一行！！！谢谢！！！！在线等！！～～～～～～

Answer 1

更正
id   meg
1    a
2    b
3    c
我删除了第二行结果为
id   meg
1    a3    c
其中第二行我是先删除数据库里的数据然后清空，但是却找不到如何把第二行也干掉
中间始终留着空白一行！！！谢谢！！！！在线等！！～

Answer 2

我的数据不是一次性导入导出的啊，是一行一行来的，如果先DEL數據，再重新導入數據，要是数据量庞大的话不是很不好？

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
    st: TStringList;
begin
  st :=  TStringList.Create;
  for i:=0 to StringGrid1.ColCount-1 do begin
    st.Assign(StringGrid1.Cols[i]);
    st.Delete(StringGrid1.Row);  //削除当前行
    StringGrid1.Cols[i].Assign(st);
  end;
  StringGrid1.RowCount := StringGrid1.RowCount-1;
  st.Free;
end;