a guest Jan 21st, 2020 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- procedure DeleteRow(Grid: TStringGrid; ARow: Integer);
- i: Integer;
- for i := ARow to Grid.RowCount - 2 do
- Grid.Rows[i].Assign(Grid.Rows[i + 1]);
- Grid.RowCount := Grid.RowCount - 1;
RAW Paste Data