procedure Tfm1.DeleteRow(row: integer);//删除行过程 var k, m: integer; begin if row > 0 then begin with StringGrid1 do begin for k := row to RowCount - 1 do for m := 1 to colcount do cells[m, k] := cells[m, k + 1]; RowCount := RowCount - 1; end; end; end;
删除只能把后面的copy到前面,然后总行数减一
stringGrid.row //返回当前被选定的行数
procedure Tfm1.DeleteRow(row: integer);//删除行过程
var
k, m: integer;
begin
if row > 0 then
begin
with StringGrid1 do
begin
for k := row to RowCount - 1 do
for m := 1 to colcount do
cells[m, k] := cells[m, k + 1];
RowCount := RowCount - 1;
end;
end;
end;