Перемещение строк, столбцов и ячеек

Code:

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

>> Перестановка строки в StringGrid в другую позицию

Передвигает строку StringGrid из позиции FromRow в позицию ToRow, сдвигая остальные

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

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

Copyright:   MBo

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

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

procedure SGMoveRow(SG: TStringGrid; FromRow, ToRow: Integer);

var

TempList: TStringList;

i: Integer;

begin

with SG do

   if (FromRow in [0..RowCount - 1]) and (ToRow in [0..RowCount - 1]) then

   begin

     TempList := TStringList.Create;

     TempList.Assign(Rows[FromRow]);

     if FromRow > ToRow then

       for i := FromRow downto ToRow + 1 do

         Rows[i].Assign(Rows[i - 1])

     else

       for i := FromRow to ToRow - 1 do

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

     Rows[ToRow].Assign(TempList);

     TempList.Free;

   end;

end;