Delphi World - Обмен строк TStringGrid
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Обмен строк TStringGrid

Автор: MBo
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Обмен строк StringGrid

Обмен содержимого указанных строк StringGrid.
Варианты без копирования связанных с ячейками объектов и вместе с ними.

Зависимости: Grids
Автор:       Борис Новгородов (MBo), mbo@mail.ru, Новосибирск
Copyright:   MBo
Дата:        27 апреля 2002 г.
***************************************************** }

procedure SGExchangeRows(SG: TStringGrid; Row1, Row2: Integer);
var
  TempString: string;
begin
  if (Row1 in [0..SG.RowCount - 1]) and (Row2 in [0..SG.RowCount - 1]) then
  begin
    TempString := SG.Rows[Row1].Text;
    SG.Rows[Row1].Assign(SG.Rows[Row2]);
    SG.Rows[Row2].Text := TempString;
  end;
end;

procedure SGExchRowsWithObj(SG: TStringGrid; Row1, Row2: Integer);
var
  TempList: TStringList;
begin
  with SG do
    if (Row1 in [0..RowCount - 1]) and (Row2 in [0..RowCount - 1]) then
    begin
      TempList := TStringList.Create;
      TempList.Assign(Rows[Row1]);
      Rows[Row1].Assign(Rows[Row2]);
      Rows[Row2].Assign(TempList);
      TempList.Free;
    end;
end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования