procedure TzjFm.DeleteRow(rw: integer);
var
k, m: integer;
begin
if rw > 0 then begin
with StringGrid3 do begin
for k := rw to RowCount - 1 do
for m := 1 to 8 do
cells[m, k] := cells[m, k + 1];
RowCount := RowCount - 1;
end;
end;
end;
Procedure GridRemoveRow(StrGrid: TStringGrid; DelRow: Integer);
var //删除指定行.第一行的DElRow 为0
Row:integer;
begin
if DelRow<=StrGrid.RowCount then
begin
for Row:=DelRow+1 to StrGrid.RowCount-1 do
strGrid.Rows[Row-1].Assign(strGrid.Rows[Row]);
strGrid.RowCount:=strGrid.RowCount-1;
end;
end;
