求问：StringGrid的删除行的问题？

Question

同题，怎样删除里面的一行？

Answer 1

procedure TfrmXHIN.DeleteRow(row: integer);
var
  k, m: integer;
begin
  if row >= 1 then begin
    with stringgrid1 do begin
      for k := row to RowCount  do
        for m := 1 to ColCount-1 do
          cells[m, k] := cells[m, k + 1];
      RowCount := RowCount - 1;
      label9.Caption :=formatfloat('0.00',calculateMoney);
      label12.Caption :=inttostr(calculatePairs);
    end;
  end;
end;