| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Stringgrid [D7, WinXP]

Чайник ©   (2004-09-13 13:56:00) 

Люди, а можно как- нибудь поменять местами строки в таблице?... чтоб не поячеечно...

---

Чайник   (2004-09-13 14:13:00) [1]

Благодарю, именно это и искал

---

Rem   (2004-09-13 14:12:00) [2]

procedure SwapRows(a_Row1, a_Row2: TStrings);
var
 TmpRow: TStrings;
begin
 TmpRow := TStringList.Create;
 try
   TmpRow.Assign(a_Row1);
   a_Row1.Assign(a_Row2);
   a_Row2.Assign(TmpRow);
 finally
   TmpRow.Free;
 end;
end;

...

SwapRows(StringGrid.Rows[1], StringGrid.Rows[2]);

---

Чайник   (2004-09-13 14:01:00) [3]

да ет понятно, именно так и делаю.. но нельзя ли поменять их местами, не пробегаясь по  ячейкам?

---

TUser   (2004-09-13 14:00:00) [4]

Не очень сложно и всю строку сразу пробежать
for i:=0 to ColCount-1 do begin
...
end;

---

Чайник   (2004-09-13 13:59:00) [5]

да не, можно канешна и так, с так собсна и делаю.. прост мне казалось, что должен быть способ по строкам, так ведь проще по иде..

---

TUser   (2004-09-13 13:58:00) [6]

Извини, не прияитал про непоячеечно.
А чем поячеечно не нравится?

---

Чайник   (2004-09-13 13:58:00) [7]

это как раз таки по ячейке, а речь идет чтоб поменять местами всю строку сразу...

---

TUser   (2004-09-13 13:57:00) [8]

s:=Cells[0,0];
Cells[0,0]:=Cells[1,1];
Cells[1,1]:=s;

---

Наверх