a guest Jan 21st, 2020 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure DeleteRow(Grid: TStringGrid; ARow: Integer);
  2. var
  3.   i: Integer;
  4. begin
  5.   for i := ARow to Grid.RowCount - 2 do
  6.     Grid.Rows[i].Assign(Grid.Rows[i + 1]);
  7.   Grid.RowCount := Grid.RowCount - 1;
  8. end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand