Delphi中StringGrid删除

开发环境D7
只是部分代码
StringGrid1事先固定了行数为20，固定了一行为标题行

 

 

----实现单行删除内容(StringGrid1事先固定了行数为20，固定了一行为标题行),没有固定多少行的时候请适当改写，这个是本人测试代码

var
  i:Integer;
begin
  if StringGrid1.RowCount<2 then
  begin
    Exit;
  end;
  StringGrid1.Rows[StringGrid1.Row].Clear;
  if StringGrid1.Row=StringGrid1.RowCount-1 then
    Exit;
  for i:=StringGrid1.Row to StringGrid1.RowCount-2 do
  begin
    StringGrid1.Rows[i]:=StringGrid1.Rows[i+1];
    StringGrid1.Rows[i+1].clear;
  end;

end;

--------增加行

StringGrid1.RowCount:=StringGrid1.RowCount+1;

---------减少行

StringGrid1.RowCount:=StringGrid1.RowCount-1;

----------Showhint 单元格内容

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if (StringGrid1.MouseCoord(x,y).X>StringGrid1.ColCount-1) or (StringGrid1.MouseCoord(x,y).X<0) then
    Exit;
  if (StringGrid1.MouseCoord(x,y).Y>StringGrid1.RowCount-1) or (StringGrid1.MouseCoord(x,y).Y<0) then
    Exit;
  StringGrid1.Hint:=StringGrid1.Cells[StringGrid1.MouseCoord(x,y).X,StringGrid1.MouseCoord(x,y).Y];
end;

 

 

--------------为单元格赋值    标题行赋值

var
  i,j:Integer;
begin
   StringGrid1.Cols[0].Text:='A000A';
   StringGrid1.Cols[1].Text:='B000B';
   for i:=0 to StringGrid1.ColCount-1 do
   begin
     for j:=0 to StringGrid1.RowCount-1 do
     begin
       if j=0 then
       begin
         Continue;
       end;
       StringGrid1.Cells[i,j]:=Format('i:=%d ;j:=%d',[i,j]);
     end;
   end;
end;

 

 

---------------清空StringGrid的内容（标题行不清除）

var
  i:Integer;
begin
   for i:=1 to StringGrid1.RowCount-1 do
      StringGrid1.Rows[i].Clear;
end;