Удаление и добавление столбцов и колонок

Code:

{ **** UBPFD *********** by delphibase.endimus.com ****

>> Удаление строки из StringGrid

Удаляет из StringGrid указанную строку, сдвигая остальные.

Зависимости: Grids

Автор:       Борис Новгородов (MBo), Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра., Новосибирск

Copyright:   MBo

Дата:        27 апреля 2002 г.

***************************************************** }

procedure SGDeleteRow(SG: TStringGrid; RowToDelete: Integer);

var

i: Integer;

begin

with SG do

begin

   if (RowToDelete >= 0) and (RowToDelete < RowCount) then

   begin

     for i := RowToDelete to RowCount - 2 do

       Rows[i].Assign(Rows[i + 1]);

     RowCount := RowCount - 1;

   end;

end;

end;