Перестановка столбцов в StringGrid (Delphi)

[ShaoKhan]

Доброго времени суток!
Подскажите как реализовать это через цикл, если допустим будем иметь 10 столбцов ( не считая нулевого).
Я смог написать код только для замены 1 и 2 столбца, как цикл к этому привязать, пока не знаю.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
 s: String;
begin
 with StringGrid1 do
   for I := 0 to RowCount - 1 do
   begin
     s := Cells[1, i];
     Cells[1, i] := Cells[2, i];
     Cells[2, i] := s
   end
end;

end.

[Sciv]

for j:=0 to ColCount-2 do
   for I := 0 to RowCount - 1 do
   begin
     s := Cells[j, i];
     Cells[j, i] := Cells[j+1, i];
     Cells[j+1, i] := s
   end

[ShaoKhan]

Сообщение от Sciv

for j:=0 to ColCount-2 do
   for I := 0 to RowCount - 1 do
   begin
     s := Cells[j, i];
     Cells[j, i] := Cells[j+1, i];
     Cells[j+1, i] := s
   end

Так не пойдёт

Получается, что цифры забитые в массиве просто сдвигаются влево.

[Sciv]

Так а Вам какой-то порядок перестановки нужен? В задаче этого не сказано... А так как цикл у Вас и так изначально привязан, вообще непонятен сам вопрос. Жажду конкретики

[ShaoKhan]

Как говорится: Шарик - ты балбес =)

Нужно поменять местами столбцы чётные с нечётными, т.е. в нашем случае 1 с 2 , 3 с 4, 5 с 6 и так далее.

[Sciv]

Нужно поменять местами столбцы чётные с нечётными, т.е. в нашем случае 1 с 2 , 3 с 4, 5 с 6 и так далее.

Ну вот и долгожданная конкретика

Меняем код:

j:=0;
while j<=ColCount-2 do begin
   for I := 0 to RowCount - 1 do
   begin
     s := Cells[j, i];
     Cells[j, i] := Cells[j+1, i];
     Cells[j+1, i] := s
   end
   j:=j+2;
end;

[ShaoKhan]

Сообщение от Sciv

Ну вот и долгожданная конкретика

Меняем код:

j:=0;
while j<=ColCount-2 do begin
   for I := 0 to RowCount - 1 do
   begin
     s := Cells[j, i];
     Cells[j, i] := Cells[j+1, i];
     Cells[j+1, i] := s
   end
   j:=j+2;
end;

Огромнейшее спасибо!
Только надо было j:=1 , что бы не прыгал в нулевой столбец!
Ещё раз СПАСИБО!

[Serge_Bliznykov]

если столбцы целиком нужно менять, то можно ещё таким ("извращённым") способом воспользоваться:

procedure TForm4.Button1Click(Sender: TObject);
var i,k:integer;
begin
  k := StringGrid1.ColCount + 1;
  for i := 1 to (StringGrid1.ColCount - 1) div 2 do begin
    StringGrid1.Cols[k] := StringGrid1.Cols[(i-1)*2+1];
    StringGrid1.Cols[(i-1)*2+1] := StringGrid1.Cols[(i-1)*2+2];
    StringGrid1.Cols[(i-1)*2+2] := StringGrid1.Cols[k]
  end;
end;