请问TStringGrid的这种控件里如何删除指定的第i行啊？

Question

我这样写的：
StringGrid1.Rows[i].Delete[i];
可是编译不过去的：（
请教各位高手了
谢谢

Answer 1

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;(注：削除当前行)

Answer 2

procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid); 
var 
  i: Integer; 
begin 
  Grid.Row := RowNumber; 
  if (Grid.Row = Grid.RowCount - 1) then 
    { On the last row} 
    Grid.RowCount := Grid.RowCount - 1 
  else 
  begin 
    { Not the last row} 
    for i := RowNumber to Grid.RowCount - 1 do 
      Grid.Rows[i] := Grid.Rows[i + 1]; 
    Grid.RowCount := Grid.RowCount - 1; 
  end; 
end;