StringGrid - deletar uma linha de uma stringgrid

Top  Previous  Next

// deletar uma linha de uma stringgrid

 

procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid); 

var 

  i: Integer; 

begin 

  Grid.Row := RowNumber; 

  if (Grid.Row = Grid.RowCount - 1) then 

    { On the last row} 

    Grid.RowCount := Grid.RowCount - 1 

  else 

  begin 

    { Not the last row} 

    for i := RowNumber to Grid.RowCount - 1 do 

      Grid.Rows[i] := Grid.Rows[i + 1]; 

    Grid.RowCount := Grid.RowCount - 1

  end

end

 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

  GridDeleteRow(3, stringGrid1); 

end