Home » Tipps & Tricks » Komponenten » TStringGrid » Zeile eines StringGrids löschen

Zeile eines StringGrids löschen

Mithilfe folgender Prozedur können Sie gezielt eine Zeile eines Stringgrids löschen. Übergeben Sie ihr als Parameter zunächst das betroffene Stringgrid und den Index der zu löschenden Zeile, beginnend bei 0:

procedure GridDeleteRow(const Grid : TStringGrid; RowNumber : Integer);
var
  i : Integer;
begin
  for i := RowNumber to Grid.RowCount - 2 do
    Grid.Rows[i].Assign(Grid.Rows[i+ 1]);
  Grid.Rows[Grid.RowCount-1].Clear;
  Grid.RowCount := Grid.RowCount - 1;
end;

Folgender Aufruf löscht die zweite Zeile des Stringgrids „Stringgrid1“:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  GridDeleteRow(StringGrid1, 1); 
end;