Поменять местами столбцы в массиве

[Naposaram]

Всем привет. Все с паскалем разобрались, вернемся к делфи. Все таже задачка:

Для двумерного массива размерностью 2 строки 4столбца поменять местами первый и последний столбцы.

Как это сделать? Мастера помогите!!!
я конечно сделал но до безобразия все просто и соответственно не правильно т.к. условию задачи не соответствует:

     a:= StringGrid1.Cells[0,0];
     b:= StringGrid1.Cells[0,1];
     c:= StringGrid1.Cells[3,0];
     d:= StringGrid1.Cells[3,1];

     StringGrid1.Cells[0,0]:= c;
     StringGrid1.Cells[0,1]:= d;
     StringGrid1.Cells[3,0]:= a;
     StringGrid1.Cells[3,1]:= b;

[Stilet]

Массив в СтрингГриде? Если да то:

with  StringGrid1 do begin
 s:=cols[0].Text;
 cols[0].Text:=cols[ColCount-1].Text;
 cols[ColCount-1].Text:=s;
end;

Где s - String;

[Naposaram]

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

Массив в СтрингГриде? Если да то:

with  StringGrid1 do begin
 s:=cols[0].Text;
 cols[0].Text:=cols[ColCount-1].Text;
 cols[ColCount-1].Text:=s;
end;

Где s - String;

Спасибо, но это же просто получается поменены с стрингриде, а не в массиые?

[Аватар]

Спасибо, но это же просто получается поменены с стрингриде, а не в массиые?

А вы в своем коде где меняете? Вопрос один, пример кода с другой оперы? Определитесь, что ли

[Naposaram]

Сообщение от Аватар

А вы в своем коде где меняете? Вопрос один, пример кода с другой оперы? Определитесь, что ли

Ну так я и написал =D
что:

я конечно сделал но до безобразия все просто и соответственно не правильно т.к. условию задачи не соответствует:

[Аватар]

var MyArray: array [1..2,1..4] of Integer;
...
  for i:=1 to 2 do begin
    k:=MyArray[i,1];
    MyArray[i,1]:=MyArray[i,4];
    MyArray[i,4]:=k;
  end;