stringGrid怎么删掉中间一行,可编译老报错

Question

这个问题以前就已解决,搜一下老贴子,关键字stringgrid

Answer 1

我再发一次
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;
    
end;