我再发一次
procedure TFormVLan.BitBtndeleteClick(Sender: TObject);
var
aFarm,FRowSelect:integer;
begin
FRowSelect:=Self.StringGridVlaninfo.Row;
for aFarm := FRowSelect to Self.StringGridVlaninfo.RowCount - 2 do
Self.StringGridVlaninfo.Rows[aFarm] :=Self.StringGridVlaninfo.Rows[aFarm + 1];
Self.StringGridVlaninfo.RowCount:= Self.StringGridVlaninfo.RowCount-1;