[Delphi] в массиве поменять порядок следования столбцов на обратный (первый столбец становится последним, второй предпоследним и т.д.).

[ALINA787]

• в массиве поменять порядок следования столбцов на обратный (первый столбец становится последним, второй предпоследним и т.д.).

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
SetLength(mas,n,m);
   StringGrid2.ColCount:=m+1;
   StringGrid2.RowCount:=n+1;
   for i := 1 to stringgrid2.ColCount do stringgrid2.Cells[i,0]:=inttostr(i);
   for i := 1 to stringgrid2.rowcount do stringgrid2.Cells[0,i]:=inttostr(i);
   begin
for j:=m downto 0 do
for i := 0 to n do
 begin
 mas[i,j]:=mas[i,m-j+1];
StringGrid2.Cells[j+1,i+1]:=inttostr(mas[i,j]);
end;
   end;

пока у меня лишь такие мысли , но не получается почему-то хотя когда я сама прогнала на листочке все это то работает, а тут нет

[p51x]

mas[i,j]:=mas[i,m-j+1];

А старое значение mas[i,j] вы в уме храните? Так почему же не записываете взад?

[Аватар]

то старое значение в mas для начала еще поместить нужно

[ALINA787]

я и хранила тоже, но программа тогда вообще выключается и результата не давало

[Serge_Bliznykov]

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

SetLength(mas,n,m);

эту строчку убрать ОБЯЗАТЕЛЬНО!

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

mas[i,j]:=mas[i,m-j+1];

местами элементы меняются не так.

а вот так:

t:=mas[i,j];
mas[i,j] := mas[i,m-j+1]
mas[i,m-j+1] := t;