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

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

Мастера, подскажите, как удалить строку из StringGrid

mmms ©   (2005-01-26 16:50:00) 

И потом сместить все нижние строки на одну вверх?

---

Александр Иванов   (2005-01-26 17:56:00) [1]

jack128 ©   (26.01.05 17:55) [5]
Плохо ведь будет..
Да, будет :)

---

jack128   (2005-01-26 17:55:00) [2]

Александр Иванов ©   (26.01.05 17:36) [3]
В таком случае: StringGrid1.RowCount-StringGrid1.FixedRows-1
Дело не в этом
Александр Иванов ©   (26.01.05 16:59) [1]
for i:=Number to StringGrid1.RowCount -1do
  for j:=0 to StringGrid1.ColCount-1 do
    StringGrid1.Cells[j,i]:=StringGrid1.Cells[j,i +1];Плохо ведь будет..

---

Antonn   (2005-01-26 17:44:00) [3]

procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid);
var
  i: Integer;
begin
  Grid.Row := RowNumber;
  if (Grid.Row = Grid.RowCount - 1) then
    { On the last row}
    Grid.RowCount := Grid.RowCount - 1
  else
  begin
    { Not the last row}
    for i := RowNumber to Grid.RowCount - 1 do
      Grid.Rows[i] := Grid.Rows[i + 1];
    Grid.RowCount := Grid.RowCount - 1;
  end;
end;

---

Александр Иванов   (2005-01-26 17:36:00) [4]

jack128 ©   (26.01.05 17:33) [2]
В таком случае: StringGrid1.RowCount-StringGrid1.FixedRows-1

---

jack128   (2005-01-26 17:33:00) [5]

Александр Иванов ©   (26.01.05 16:59) [1]
for i:=Number to StringGrid1.RowCount- 2do

---

Александр Иванов   (2005-01-26 16:59:00) [6]

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

---

Наверх