StringGrid

[Witaliy]

Добрый день всем
Как можно из StringGrid удалить какой-то ряд?. Заранее благодарю.

[alexBlack]

Например, используя свойство Cells или Rows:

procedure DeleteLine(SG:TStringGrid; N:integer);
var i, j:integer;
begin
   { 1.
   for i:=N to SG.RowCount-2 do begin
      for j:=0 to SG.ColCount-1 do begin
         SG.Cells[j, i] := SG.Cells[j, i+1]
      end;
   end;
   SG.RowCount := SG.RowCount-1;
   }
   // 2.
   for i:=N to SG.RowCount-2 do begin
      SG.Rows[i] := SG.Rows[i+1]
   end;
   SG.RowCount := SG.RowCount-1;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   DeleteLine(StringGrid1, 2);
end;

[_Dmitry]

Функции удаления строки и столбца у TStringGrid есть, она их наследует от TCustomGrid только они в protected, поэтому поступаем так:

type
  TStrGrid = class(TStringGrid);

procedure TForm1.Button1Click(Sender: TObject);
begin
  TStrGrid(StringGrid1).DeleteRow(2); //удаляем вторую строку
  TStrGrid(StringGrid1).DeleteColumn(1); //удаляем первую колонку
end;

ну, и не забываем, что нумерация начинается с нуля.

[Stilet]

TStrGrid = class(TStringGrid);

Вот так правильнее:

TStrGrid = class(GRIDS.TStringGrid);

[Bit_Man]

Я из protected

	virtual void __fastcall DeleteColumn(int ACol);
        virtual void __fastcall DeleteRow(int ARow);

перетащил в public. все работает ничего не полетело.