请问如何遍历StringGrid某一列的值,符合条件的删除所在行?

Question

比如一个StringGrid,遍历第三列的值
如果等于6就删除该行?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  with stringgrid1 do
  begin
    for i:=row to RowCount-1 do
      Rows[i]:=Rows[i+1];
    RowCount:=RowCount-1;
  end;
end;

Answer 2

記了判斷了procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:integer;
begin
  with stringgrid1 do
  begin
    for i:=RowCount-1 downto 0 do
    begin
      if Cells[2,i]='6' then
      begin
         for j:=i to RowCount-1 do
           Rows[j]:=Rows[j+1];
         RowCount:=RowCount-1;
      end;
    end;
  end;
end;

Answer 3

     StringGrid1.Rows[Row].Assign(StringGrid1.Rows[Row+1]);
     StringGrid1.RowCount:=StringGrid1.RowCount-1;
这样为啥会报错呢