Скачать: CL | DM;

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

← →
mmms   (2005-01-26 16:50) [0]

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

---

← →
Александр Иванов ©   (2005-01-26 16:59) [1]

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;

---

← →
jack128 ©   (2005-01-26 17:33) [2]

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

---

← →
Александр Иванов ©   (2005-01-26 17:36) [3]

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

---

← →
Antonn ©   (2005-01-26 17:44) [4]

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;

---

← →
jack128 ©   (2005-01-26 17:55) [5]

Александр Иванов ©   (26.01.05 17:36) [3]
В таком случае: StringGrid1.RowCount-StringGrid1.FixedRows-1
Дело не в этом
Александр Иванов ©   (26.01.05 16:59) [1]
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]; Плохо ведь будет..

---

← →
Александр Иванов ©   (2005-01-26 17:56) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.05 c