Инвертировать столбец в StringGrid

[artemavd]

Как инвертировать столбец в StringGrid? Мудрил так:

procedure TForm1.BtnWordWrapClick(Sender: TObject);
var
 i,j: integer;
begin
 for i:=Form1.StringGrid1.RowCount - 1 to 0 do
 begin
 for j:=0 to Form1.StringGrid1.RowCount - 1 do
  Form1.StringGrid1.Cells[0,j]:=Form1.StringGrid1.Cells[0,i];
 end;
end;

но перемудрил что-то . Поправьте меня? Нужно чтобы значения в столбце переставились наоборот.

[evg_m]

for j:=0 to rowcount div 2 do // в перевороте участвуют сразу ДВЕ строки (первая и последняя)
begin
  s:=cells[0,j];
  cells[0,j]:=cells[0, colcownt-j];
  cells[0, colcount-j]:=s;
end;

только идея, с индексами могу ошибаться +-1

r:=TstringList.create; // с использование дополнительной памяти (StringList)
for j:=0 to rowcount-1 do r.insert(0, cells[0,j]); //rкопируем и сразу переворачиваем 
for j:=0 to r.count-1 do cells[0,j]:=r.strings[j]; //переносим обратно
r.free;

[Stilet]

Ыгы. А вот еще один Бздынь:

 with StringGrid1 do
  for i:=0 to (RowCount-1) div 2 do  Cols[0].Exchange(i,RowCount-1-i);

Здесь "Реверсируется" нулевой столбец
т.е. Артему теперь по вкусу пусть выбирается.

[artemavd]

Stilet, вот так надо было:

procedure TForm1.BtnWordWrapClick(Sender: TObject);
var
 i,j: integer;
begin
 with Form1.StringGrid1 do
 for i:=0 to (RowCount-1) div 2 do
  Cols[1].Exchange(i,RowCount-1-i);
end;

я так понял, что выводится будет в той колонке, которую я укажу тут

Cols[1]

и что значит функция Exchange?
Код не работает почему-то. Не переставляются значения.

[Stilet]

и что значит функция Exchange?

А ты посмотри в хелпе этот метод для класса TStrings

что выводится будет в той колонке, которую я укажу тут

Не выводится а меняться местами.

Код не работает почему-то.

Я проверял когда постил - все работает.