怎樣刪除stringgrid中選中的一行？

Question

如題

Answer 1

var
  i:integer;
begin
  for i:=1 to stringgrid.ColCount-1 do
  begin
    stringgrid.Cells[i,RowNum]:='';
  end;
end;

Answer 2

RowNum
是什麼東西？怎麼以得呢？

Answer 3

TO: delphi_han(小强) 
你這只是清空呀，沒有刪除呀，我要刪除就好了，大家幫我呀

Answer 4

var
  i,j:integer;
  iPos:integer;
begin
  iPos:=StringGrid1.Row;
  for i:=iPos to StringGrid1.RowCount-1 do
  begin
    for j:=0 to StringGrid1.ColCount-1 do
      StringGrid1.Cells[j,i]:=StringGrid1.Cells[j,i+1];
  end;
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;

Answer 5

你定义一个从TStringGrid类继承的新类如下：
type
  TMyGrid = class(TStringgrid);  之后，删除时：你可以这样写：
  TMyGrid(Grid).DeleteRow(Grid.Row);  //Grid为你的StringGrid控件说明：DeleteRow方法是TCustomGrid类申明的protected方法，可以删除表格中的一行；而TStringGrid没有将这一方法公开出来（意味着其他类将无法访问），所以你只需要定义一个从TStringGrid类继承的新类就可以了。

Answer 6

procedure deleterow(i:integer;stringgrid1:Tstringgrid);
   var r,c,rcount :integer;
   begin
     with stringgrid1 do
     begin
       rcount:=rowcount;
       for r:=i to rcount-2 do
         for c:=0 to colcount-1 do
           cells[c,r]:=cells[c,r+1];
      dec(rcount);
      RowCount:=rcount;
    end
  end;