Stringgrid Löschen / Einfögen / Verschieben per Buttonklick

[Illuminator-23-5]

probier mal folgendes:

Delphi-Quellcode:

procedure deleteRow(Row: integer);
var
  i, j: integer;
begin
  for i := Row to StringGrid1.RowCount - 2 do
    for j := 0 to StringGrid1.ColCount - 1 do
      StringGrid1.Cells[j, i] := StringGrid[j, i+1];
  StringGrid1.RowCount := StringGrid1.RowCount - 1;
end;

habs nicht ausprobiert, müsst aber funzen!