Мастера, подскажите, как удалить строку из 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;

Александр Иванов © (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]; Плохо ведь будет..

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