{ **** UBPFD *********** by delphibase.endimus.com ****
>> Перестановка строки в StringGrid в другую позицию
Передвигает строку StringGrid из позиции FromRow в позицию ToRow, сдвигая остальные
Зависимости: Grids
Автор: Борис Новгородов (MBo), mbo@mail.ru, Новосибирск
Copyright: MBo
Дата: 28 апреля 2002 г.
***************************************************** }procedure SGMoveRow(SG: TStringGrid; FromRow, ToRow: Integer);
var
TempList: TStringList;
i: Integer;
beginwith SG doif (FromRow in [0..RowCount - 1]) and (ToRow in [0..RowCount - 1]) thenbegin
TempList := TStringList.Create;
TempList.Assign(Rows[FromRow]);
if FromRow > ToRow thenfor i := FromRow downto ToRow + 1 do
Rows[i].Assign(Rows[i - 1])
elsefor i := FromRow to ToRow - 1 do
Rows[i].Assign(Rows[i + 1]);
Rows[ToRow].Assign(TempList);
TempList.Free;
end;
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Перестановка строки в TStringGrid в другую позицию", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!