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;